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MODULE DBGNPNP (IDENT = ‘'V04-000") = 
BEGIN 


' 
eRe R RRR RAAARARA AREA EAA RE EEA EEREEEEEEEEEE 


M ® 
'‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
'‘® ALL RIGHTS RESERVED. * 
: ® 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
4 VE OF TWARE N R * 
' * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
4 ® 
'® pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
M ® 
's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 

| denennenetidbdiadniabentinnbueebebnesbethbhimboeunnaneienneebinennesenenes 
le 
FACILITY: 

DEBUG 
! ABSTRACT: 

This module contains routines which collectively permform pathname 

parsing eccersing to the DEBUG syntax for pathnames. The lexical 

scanner used by the parser is language dependent and is provided by 

the caller of dbg$npathname_parser. 

The method of parsing is that of ATNs. 

SET SCOPE command. This routine invokes the pathname parser, supplying 

the address of a kernel lexical scanner routine. 
ENVIRONMENT: 

VAX/VMS 
AUTHOR: 

David ?lummer 
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i 
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' 
i 
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' 
i 
This module also contains a routine which parses the objects of a 
i 
i 
i 
i 
i 
' 
i 
i 
i 
' 
CREATION DATE: 


iB! 
Va-Sep-1986 12:17:18 EDEBUG. SRCIDBGNPNE- B32; 
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| DBGNPNP hese =1984 01:50:44 AX-11 Bliss-32 V4.0-7 Page 
Woer000 12786871382 93:79:48 4 ¥OKGuG. She fbacnene 632, oe | 
££ 8 0 1! 9-SEPT-80 
‘b 3 0089 1 i 
is @# 060 1 ! VERSION: 

3 61 0061 1! 

; >< Boos 1! v03-004 

:; 6 0063 1! 

$ 64 0064 1 ! MODIFIED BY: 

in 0065 1! 

; & 0066 1! John Francis 3-Jun-81 

: 67 0067 1! 

: 68 0068 1 ! EDIT HISTORY 

: 69 0069 1! 

; 0070 1 ! 00 13-Mar-81 JF Change max Length to 255 (not 511) 

; 71 0071 1! 00 30-Apr-81 JF Add sup ors for %NAME construct 

3 % sit : } 004 3-Jun-81 JF Print A\B.C rather than A\B\C! 
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_ DBGNPNP 16-Sep-1984 01:50:44 AX-11 Bliss-32 V4.0 Page 3. 
—V04-000 12280 8=1 38s 93:79 18 DEBUG. SRCIDBGNPNP. g33: . (2). 
; 0074 1! 

; 76 0075 1 ! TABLE OF CONTENTS: 
Fe is Bore 7% 

.2- i. 0077 1 

: 0078 1 FORWARD ROUTINE 
; 0079 #1 ere grees PARSER, ! Entry point to peree network 
ee) 0080 1 PARSE _P HNAME , ' PN parse netwo 

ae 0081 1 FIRST ! Parse first Line reference 

ee 0082 1 LINE "COOKAMEAD, ' Resolves Line number - 
; 0083 1 ' numeric scope conflict 
> ~=6«BS 0084 1 FIRST_LABEL, ! Parses first Label reference 
; 0085 1 LABEL ~LOOKAHEAD, ' Resolves label num - n.s. 
> 0086 1 GLOBAC_ITEM, ! Parses global id 
; 88 0087 1 NUMERIC PATHNAME, ' Parses numeric pathnames 

: 89 0088 1 LINE_ITEM, ' Parses Line references 
; 0089 1 LABEC_ITEM, ! Parses label references 
Se 0090 1 at ITEM, ' Parses Z%NAME construct 
Ba. 0091 1 ITEM, ' Parses ID references 

5 9 0092 1 INTEGER. ITEM, ! Parses dangling Line or 

; 0093 1 ' Label numbers 

; 0094 1 SHORT a tte ' Parses ee and numeric scopes 

3 0095 1 CHECK” PATHNAME : NOVALUE, ! Sets value state by scanning pathname desc 

—- oF 0096 1 SBESNPATHDESC _T0_CS : NOVALUE, ' Translates a p.n. desc to a c.s. 

; 0097 1 SCOP ANNER™ : NOVALUE, ' Kernel scanner for parsing scopes 

: 299 0098 1 DBGSNPARSE_SCOPE_LIST; ! Parses scopes list 

: 100 0099 1 ; | 
s TOI 0100 1! 

; 10¢ 0101 1 ! INCLUDE FILES: 

s 10 B10 . < 

: 104 0103 1 

s 105 0104 1 REQUIRE ‘SRC$:DBGPROLOG.REQ'; 

> 106 0238 1 

: 107 0239 1! 

: 108 0240 1 ! MACROS: 

; 109 0241 1! 

: 110 bees 1 

s 999 0245 1 MACRO ! These are parsing and semantic action macros 

s We 0244 1 

: 115 0245 1 

> «(114 0246 1 !' ADVANCE updates the input descriptor to reflect the ingestion 

> «115 0247 1 ' of the current lexical string. In addition, a copy of the lexical string 

; 116 0248 1 i descriptor is made. 

OME ig 0249 1 i 

; «118 bal 8 50 1 ADVANCE = 

3: 119 m 0251 1 BEGIN 

s 120 i] 0536 1 

: is) . 0 37 ' ch$move (8, lex_string_desc, last_token_desc); 

: 138 m0255 1 input_desc Cdsc$w_length] = .input_desc gocte Lengt 

z 124 m 28 1 (lex String. desc Cdscba “oginter] - 

: 125 m 0257 1 ‘taput -dese Cdsc$a_poi ater 

: 126 m 0258 1 elex_string_desc Cdsc$w_ kong th)); 

» Ser m 0259 1 input_desc Cdsc$a_pointer] = .lex_string_desc dsc 38_p olacee! + 

; 138 . re ! -lex-string_desc Cdsc$w_ Rengthi: 

; 150 ial $6 1 last_token = .token; 

: 131 ™ 0265 1 
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14 90P- 1 3be EE Be DEBUG. SRC IDBGNPNP. B32: sea (2). 
END %, 


GET_TOKEN calls the lexical scanner for a token 
GET_TOKEN = 
BEGIN 


INP ROUTINE LEXICAL SCANNER = .token_scanner_addr; ! Lexical analyzer 
lexical_scanner (.input_desc, lex _string_desc, token); 

! Check for an integer with a Length GTR than 9. If this is the case, 

; change token to invalid. 
dF token EQL dbg$k_tok_int | 

ff. lex.string_desc Cdsc$w_length] GTR 9 
token = dbg$k_tok_inval; 

END %, 


: SAVE extracts and saves the values of the present input descriptor 
SAVE (LEN, PTR) = 
BEGIN 


= .input_desc pdscéu_ length); | 
ptr = .input_desc Cdsc$a_pointer]; 


} RESTORE sets the present input descriptor values to the ones supplied 
RESTORE (LEN, PTR) = 

BEGIN 

input_desc Cdsc$w_length] = Len; 

input_desc Cdsc$a_pointer) = ptr; 

END %, 
! ADD_TO_LIST adds a counted dag to the name List. If there is no room 
' to add the name, a string truncation message is issued. The count fields 
of the pathname vector are updated. 


ADD_TO_LIST (COUNTED_STRING) = 
BEGIN 


IF ,mame_index GEQ dbg$k_max_pathname 
THEN 
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_ (dbg$_pathtlong) ! No return 


BEGIN 
name_vect C.name_index] = counted_string; 


pene .sneee = ,name_index + 1; 


Update the count fields 


pathname_desc fothsb_totcnt] = .pathname_desc Cpthsb totcnt]_+ 1; 
pathname_desc ([pth$b_pathcnt] = .pathname_desc [pth$Bb_totcnt); 


END %, 
! ADD_ID adds a non_null name to the name vector. The contents of the lexical 
string buffer is Copied into a new buffer. 


ADD_ID = 
BEGIN 


LOCAL 
NAME_STRING : REF VECTOR C,BYTE]; ! Vector for counted string 


Determine how large a buffer is needed and allocate it. 


name_string = dbgsget tempmem 
r 


((.lex_string_desc Cdsc$w_length] / %UPVAL) *¢ 1); 


Copy the buffer pointed to by the lexical string into the name buffer. 
ch$move (.lex_string_desc ([dsc$w_length] 

- Lex string_desc dsc$a_pointerd, 

name_string (1)); 


name_string (C0) = .lex_string_desc Cdsc$w_length]; 


Add the buffer to the name vector 

add_to_list (.mame_string); 

END %, 
! ADD_INVOCATION_NUMBER attaches an invocation number to the last name added 
: to the name List. The invocation number augmentation is set. 
ADD_INVOCATION_NUMBER = 

BEGIN 


CAL 
POINTER ! Temporary pointer 
NUMBER DESC : db Sstg dest. i Descriptor for number 
NUM_BUF : REF VECTOR C;BYTE], ‘ Number buffer 
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(3 246 m 0378 3 NUMBER; ! Translated number 
: 248 ™ 9 1 augmentations LCinvocation_found] = true; 

: $86 NOs. 

; 251 M ; 1 ‘A copy of the present lexical rr descriptor must be made which 
: 26 . : ! contains a terminating character (<CR>). 

: 254 ial § 1 number_desc Cdsc$w_length] = -lex string desc Cdsc$w_length] + 1; 

2 on 2 

; rtf . 0 89 1 Allocate storage for the number string and terminator 

; 4 . 8 3 : num_buf = dbgSget_tempmem((.number_desc Cdsc$w_length] / %UPVAL) + 1); 
: 261 M0393 1 

: O¢ z 8 Be 1 Copy over the number string and place the terminator 

: 264 40 38 1 pointer = ch$move (.lex_string_desc pdscéu_ length? 

; 265 m 0397 1 .lex_string_desc dsc$a-pointerd, 

; 266 ™ B98 1 -num_buf); 

; 267 m 0399 1 ch$move (1, UPLIT BYTE Cabgsk_car return), -pointer); 

; 268 ™ 0400 1 number_desc (dsc$a_pointer] = .num_buf; 

BR RB 

; $7) . bc0$ ; The descriptor has been set up. Now convert the number. 

: 278 - bcos : iF NOT dbg$nsave_decimal_integer (number_desc, number, dummy) 

: 275 4 hd 1 RETURN sts$k_severe; 

a BBE 

; 378 . pei : : Store the invocation number and the index 

; 280 ” Bei¢ 1 pathname_desc [pth$b_locinvoc] = .name_index; 

; 281 M0413 1 pathname_desc [pth$l_invocnum] = .number; 

; 282 M0414 1 

3; 285 0415 1 END %, 

: BBs Oct? 

; $B 0418 1 ! ADD NULL_ID adds a null name string to the name vector to represent a 
: oe eh \ global reference or numeric scope. The null string is always the first name. 
: 289 m 0421 1 ADD_NULL_ID = 

DUBS TEG Se 

; . _ 4 : : : Write in the address of the null name into the first name spot 

; 294 " § 1 name_vect (0) = mul h ote ings 

> 295 « 1 pathname_desc [pth$b-totcnt) = .pathname_desc Cpthsp totcnt) + 1; 

: 2% 6 $ 1 pathname_desc [pth$b_pathcnt] = .pathname_desc [pth$6_totcnt); 

3 44 2 rit ’ name_index = 1; 

; 299 431 1 END %, 

: 301 233 

; 302 434 1 ! ADD_GLOBAL_ID inserts the null string into the name List, followed by the 
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Vv -000 137800-1 382 9333943 DEBUG. SRCIDBGNPNP 83274 . 
03 : 5 present id (in the lexical string) 
16 ° 
Mm 04 5 ADD_GLOBAL_ID = 
2 r 5 BEGIN 
8 M 0440 add_null_id; 
nt ai 
1 208 END %, 
g dds 
4 — : ADD NUMERIC SCOPE places the null string into the name List and sets up an 
5 44 ! invocation number for it (corresponding to the numeric scope). The invocations 
8 “48 : augmentation is set by add_invocation_number. 
8 m 0450 ADD_NUMERIC_SCOPE = 
; . *2) BEGIN 
1 i ee add_null_id; 
g A 0634 add~ invocat ion_number; 
4 456 END %, 
GR 
7 0459 ! ADD_LINE inserts a ‘ZLINE" followed by the Line number into the name List. 
§ ree LINE augmentations are set. 
0 “ $8 ADD_LINE = 
1 BEGIN 
i m 04 LOC 


AL 
LINE_ITEM : REF VECTOR C,BYTE); 


augmentations Cline_found] = true; 
augmentations [line_pending] = talse; 


z 
BUS Ae 


Get storage for the string 
Line_item = dbg$get_tempmem(((.number_buffer [0] + 6) / ZUPVAL) + 1); 


RRRLKKEKE 
LN NNO 


Copy in the ‘LINE’ 
ch$move (6, UPLIT BYTE (*ZLINE '), Line_item [1)); 


5 
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} Copy over the number 
ch$move (.number_buffer (0), number_buffer [1], Line_item (7)); 


Fill in the count 
iine_item (OJ = 6 + .number_buffer (0); 
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} Add the string to the name List 
add_to_list (.line_item); 
END %, 


ee ee 
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! ADD_LABEL adds ‘"ZLABEL" followed by the Label number to the name List and 
sets the label found augmentation. 


ADD_LABEL = 
BEGIN 


LOCAL 
LABEL_ITEM : REF VECTOR C,BYTE); 


augmentations Clabel_found] = true; 
augmentations [label_pending] = false; 
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Get storage for the string 
(abel_item = dbg$get_tempmem(((.number_buffer [0] + 7) / ZUPVAL) + 1); 


Copy in the ‘LABEL' 
ch$move (7, UPLIT BYTE ("ZLABEL '), Label_item (1)); 


Copy over the number 
ch$move (.number_buffer [0], number_buffer (1), label_item (8)); 
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Fill in the count 
(abel_item (0) = 7 + .number_buffer (0); 


: Add the string to thie name List 
add_to_list (.label_item); 
END %, 
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335 ' ADD_TO_L_NUMBER adds pieces of a Line or Label number to the number buffer. 
408 540 ! An augmentation is used to check if this is the first part of the number or 
409 541 ' a continuation. 
410 266 ! 
411 m 054 ADD_TO_L_NUMBER = 
si8 M 0544 BEGIN 
41 m 0545 
414 fal 74) LOCAL 
415 m 054 NUMBER_DESC : abasetg desc. 
416 m 0548 TEMP :~REF VECTOR C,6YTE); 
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number _desc [dsc$a_pointer] = .lex_string_desc (Cdsc$a_pointer); 
number_desc Egsc$a-pointer = lex String dese Ldsc$w Tengthi: 

} Delete leading ‘0's 

WHILE enumber_desc Cdsc$w_length] GTR 1 


BEGIN 
IF aaraner (.number_desc Cdsc$a_pointer]) NEQ ‘0° 
EXITLOOP; 
number _desc (Cdsc$w_length] = .number_desc CgscSy_ lengthy - 1; 
number_desc [dsc$a_pointer] = .number_desc (Cdsc$a_pointer] + 1; 
END; ! End of loop 
Check for new number or continuation 
IF .augmentations Cl_number_started] 
THEN 
BEGIN 
Add the new number to what we already have 
temp = ,number_buffer; 
er 


num buffer = dbg$get_tempmem 
((T. temp CO] + .numBer_desc Cdsc$w_length]) / ZUPVAL) + 1); 


concatenate the old string with the new 


ch$move (.number_desc [dsc$w_lengt 

-number_ desc dsc$a-pointers 

number_Buffer C.temp (0) + 14); 

nusber butter C0] = .temp [0] + .number_desc Cdsc$w_length]; 


ELSE 
BEGIN 


: Start a new number buffer 


ch$move }-tonp C0], temp (1) nuaber purty (1)); 
b 


augmentations Cl_number_started) = true; 


number_buffer = dbgsget_ten mem 
((T.mumber_desc Cdst$w_length) / XUPVAL) + 1)); 


ch$move (.number_desc Pdscéu. length) 
«number desc dsc$a_pointerd, 
number_Buffer (1J); 


puaber butter CO] = .mnumber_desc (Cdsc$w_length); 


a 
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; 474 m 0606 1 
; 475 607 1 END %; 
: i} 809 | | 
: 47 10 1! 
3 : : 

47 611 1 ! EQUATED SYMBOLS 
: aR gig 1 | 
; 48 614 1 LITERAL 

48 0615 1 | 
3 a85 8618 ' ! These are augmentation Literals | 
3 4 Se18 1 LINE_PENDING = Q, | 
; 487 0619 1 LINE” FOUND ei, 
; 488 0620 1 LABEC_PENDING = ¢: | 
: 489 0621 1 LABE ND = 3, 
; 490 06 ¢ 1 INVOCKTION FOUND = 4, | 
; 491 06 1 L_NUMBER_STARTED = 5, 
; 49 0624 1 TERMINAL_PENDING = g. 
; 49 0625 1 TERMINAL_STATE 27; 
3 494 0626 1 
: 495 0627 1! 
; res | Be S : : OWN STORAGE: 
OBE tom | 
; 500 a4 1 LAST_TOKEN_DESC : dbg$stg_desc, ! Copy of last lex string desc 
3 «SOT 0633 1 ' accepted during parsing 
3 206 0634 1 LAST_TOKEN, ' Last token found 
; 3 0635 1 Y, ' Dummy variable 

13 504 0636 1 INPUT_DESC : REF db $stg desc, ! Input string descriptor 

; 505 0637 1 PATHNAME DESC : REF pt spe finame, ! Path name descriptor ; 
; 506 0638 1 NAME _VECT : REF VECTOR, ' Name vector for pathname descriptor 
3 3O7 0639 1 NAME _ INDEX ! Index into name vector 
; 508 0640 1 VALUE_STATE i Return state value 
; 509 0641 1 NUMBER _BUF F : REF VECTOR f BYTE), ! Buffer for | number 
; 510 pets 1 AUGMENTATIONS : BITVECTOR (8, ! Augmentation vector 
s 311 0645 1 TOKEN, ' Lexical token 
; 2\¢ 0644 1 TOKEN_SCANNER_ADDR, ! Address of lexical scanner 
3 gi? nee? : LEX_STRING_DESC : dbg$stg_desc; ! Descriptor of string for token 
; 318 0647 1 BIND 
3 218 8 1 NULL_STRING = UPLIT BYTE (0); ! Null string 
: 3ia beso 1: 
: 23? o3¢ : : EXTERNAL REFERENCES: 
> 521 53 1 
: ¢ 54 1 EXTERNAL poyr ie 
3 55 1 SYSSFAO : ADDRESSING_MODE (ABSOLUTE),  ! System service 
: 4 2$ 1 DBGSNNEXT_WORD ' Returns next word of input 
; 525 57 1 DBGSNSYNTAX_ERROR, i Constructs a syntax error 
3 $ 28 1 DBGSNMATCH, ' Matches inpyt © counted strings 
3 59 1 DBGSNOUT_INFO, ' Qutputs an informational message 
: $ 0 1 DBGSNMAKE_ARG_VECT, ' Constructs a message argument vector 
3 as DBGSGET_TEMPMEM ' Gets listed ynent storage 
; 530 ee DBGSNSAVE_DECIMAL_INTEGER; i Converts ascii to integer 


PS! cat Gat Reet ad peh eee Sos CMR ERG Nig cir hic abaya seek Rea are 2 wig ee 
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GNPNP -$ep-1984 01:50:4 AX-11 Bliss-32 V4.0- 
pee ~$ee13B2 93:79:48 = HOME E Ok igse se Neg 
: 1 34 
; ¢ 1 sting 
3 ’ 3 DBG$GB_LANGUAGE: BYTE ' Current Language 
; § 1 DBG$GL-ORIG_COMMAND PfR i Pointer to original command string 
3 5 67 1 DBGSGL-UPCASE_COMMAND_PfR: VECTORC2]; 

: O08 1 ' Pointers to start and end 
; : 308? : : of current command string 


74 
32; 


Poge i 


; 
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-000 12-Sep-19 4 93:7 :18 DEBUG. SRC JDBGNPNP.B32; 


#5 


| 

: re $7) } GLOBAL ROUTINE DBGSNPATHNAME _PARSER (INPUT, SCANNER, PATHNAME, VALUE, LAST_DESC) = 
: 4g i 1 !+4 

: *? a : FUNCTIONAL DESCRIPTION: 

; 545 ug 1 Top level parse network for DEBUG pathname parsing. This network 

s +8 677 1! accepts valid DEBUG pathnames and constructs a partial pathname descriptor. 
: 54 78 1! Upon return, the caller of this routine must analyze the pathname descriptor 
: rt 44 : : in conjunction with the return value, and complete the pathname descriptor. 
; 369 81 1 This routine will not terminate the collection of a pathname until a 

5 22) 6 ¢ 1! null invalid token has been returned by the scanner routine, or an 

3 28 6 1! invalid pathname construct has been encountered. This means 

: 227 tt } : that the collected pathname may include part or all of a data item reference. 
; 555 686 1! This routine expects to have the address of a language specific lexical 

3 396 687 1! analyzer routine passed to it. This lexical analyzer supplies tokens to 

: eee ret: ; the parser. The tokens recognized are: 

Z 223 Rene : dbg$k_tok_null - end of input 

; 261 0698 ; dbg$k_tok_line = '"ZLINE! 

; 508 Boe : ; dbg$k_tok_label - "ZLABEL' 

; 65 0696 | ; dbg$k_tok_bs - "\" (back slash) 

3 267 0698 dbg$k_tok_id - language specific symbolic identifier 

3 369 9700 ; dbg$k_tok_int - unsigned integer 

; 271 0708 dbg$k_tok_dot -'! 

3 378 9704 ! dbg$k_tok_reg - '%register’ 

: $75 Bc 08 ! i dbg$k_tok_qname - "ZNAME' 

: $77 34 ; : dbg$k_tok_inval - any other string 

; 279 $740 1 i } 

; 580 0711 1! In conjunction with a token, the scanner routine returns a lexical string 

3 2! Brie 1! which contains the ascii characters associated with the token. Note that 

: Ht tat : integers are not translated into binary values by the scanner. 

; 3 at 1 The pathname parser assumes the responsibility of updating the input string 
; 585 p78 } to reflect the acceptance of a lexical string corresponding to a token. 

: H 718 1: Upon success or failure, the input string descriptor is updated to reflect 
; 588 719 1! the point at which process ing stopped. That is, the dsc$a_pointer field 

3 +4 i , } contains the address of the first character not accepted. 

: 591 7 ; 1/ 

: 36 z Z } : FORMAL PARAMETERS: 

: 59% 725 1 INPUT - The address of a VAX standard string descriptor 

: 333 $ : } representing the input string 
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107 368-1 38 93} :18 DEBUG. SRC JDBGNPNP .B32; 


SCANNER - The address of a language specific lexical analyzer 


PATHNAME - The address of a longword to contain the address 
of a@ pathname descriptor 


VALUE - The address of a longword to contain an unsigned 
integer encoding of the type of pathname collected: 


dbg$k_Lline = pathname describes %LINE entity, 
OT a data item 


dbg$k_label bg pethnene describes ZLABEL entity, 
OT a data item 


dbg$k_pn_reg _ pathname qualified register (not 
supported yet), or unqualified 
register reference (supported). 
In both cases, the register name 
is NOT written into the pathname 
descriptor, but is left as the 
first token in the input buffer. 
This means that the pathname 
descriptor for an unqualified register 
will have an item count of 0. 


dbg$k_pn - —— ney describe a data or 
exical entity 
LAST_DESC - The address of a longword to contain the address 


of a standard string descriptor. This descriptor 
is a copy of the Last lexical string descriptor 
accepted during parsing 

CSCOPE_FLAG] - Optional parameter. If supplied, and if true 
then accept global and numeric scopes as wel ( 
as regular pathnames. 

i IMPLICIT INPUTS: 

i NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i ROUTINE VALUE: 

i An unsigned integer longword completion code 


i COMPLETION CODES: 


STS$K_SUCCESS - Success. Some flavor of pathname returned 
STS$K_SEVERE - Failure, Syntax error encountered. VALUE parameter 
not defined. Input descriptor returned to original state. 


= 


2 
DBGNPNP 18-56 -1984 01:50:44 AX-11 Bliss-32 V4.0-742 
v04-000 1228081382 933} 718 DEBUG. SRC JDBGNPNP.B32; 1 
: $28 p78) } : SIDE EFFECTS: 
: 656 $789 ii The wes string descriptor is updated to reflect one character beyond the 
3; 657 0788 1! last character accepted. 
; 658 0789 1 !-- 
; 659 0790 1 
; 660 0791 BEGIN 
2 oe eee 
ay 079% ACTUAL COUNT 
> 664 0795 ACTUALPARAME TER; 
BS oem 
: #44 8538 SCOPE _FLAG; ! Optional parameter value 
; 668 Baot 1 Set the scope flag 
: 671 Bane scope_flag = (IF actualcount () GIR 5 THEN actualparameter (6) ELSE 0); 
apace 
: 674 0805 2 ! ALL this routine does is to initialize the control variables and call the 
; of? Bae ; , the real parse network. 
: 677 0808 input_desc = .input; 
: or +t 4 token_scanner_addr = .scanner; 
: 680 0811 lex_string_desc Cdsc$b_class] = dsc$k_class_s; 
; 681 Bais lex string desc Cdsc$b_dtype] = dsc$k_dtype_t; 
; 682 0813 2 lex_string_ desc idsc$w_length] = 0; 
; 237 pete § lex-string_desc Cdsc$a_pointer) = 6; 
; 685 0816 2 Last_token_desc bdsc$a_ ointer] = .input_desc Cdsc$a_pointer]; 
: 686 0817 2 last_token_desc Cdsc$w_length] = .input_desc Cdsc$w_TengthJ; 
: 688 OB19 5 
: on Oas9 2 Obtain storage for the pathname descriptor and Line up the name vector 
: 691 0822 pathname_desc = dbg$get_tempmem(dbg$k_pathname_size); 
; 69 pes? name_vect = pathname_desc ([pth$a_pathvector]; 
3; «469 0824 name_index = 0; 
: 895 0856 
; rey 0837 Initialize the fields of the pathname descriptor. 
; 698 0899 pathname_desc [pth$b_totcnt] = 0; 
; 699 0830 pathname_desc [pth$b_locinvoc] = 0; 
: 700 0831 pathname_desc [pth$l_invocnum] = 0; 
: 903 a838 
; At Ste : Initialize the augmentation vector and set the value state 
: 705 0836 augmentations [line_pending] = false; 
: 706 83 augmentations [line found] = false; 
: 707 a3 augmentations [labeT_pending) = false; 
: 708 3 augmentations [label- found] = false; 
; 709 Bee augmentations [Linvocation_ found = false; 
; 710 0841 augmentations [l_number_sfarted = false; 


DBGNPNP 
v04-000 


~ 
7 
WR" O ODONOUNSWN “OO OONOUS WH 


Be Se Se Se Se Be Be Ge Be Ge Ge Se Ge Ge Se Ge Ge Se Se Se Ge Ge Ge Ge Se Se Be Se Se Se Fe Se Se Ge Se Se Se Se Se Ge Se Geese Ge Ge Se Se ee Se ee 
~“ 
Ww 
o 


SSN 
DOaMAawnv0 
SOOWOONOUSWN—O 


pole ol ol ole ol ale olalololololeololeolo) 
COCDCO COORD CDODC: SOCOCOD COCO CO CDCOM@ODCOD 
AAMMNMNAMAMNYI MAUI BELLE LE 
OOONANE WO OONOULE wr 


0861 


SOOOOooOooOoooO 
00000 60 G9 00 00 G9 CD CO 
tye or ot 


*OO0ococo: 
—Cco0on 


=PIPIPIPNIPINIPINPINIPINPIDPINININI AUDI AAS BN BB PAE BE PE Winnppopnopororoponor 


DEBUG.SR 


augmentations preraine? pene .ye = 
augmentations Lterminal_state] = 


value_state = <1; 


riables are initialized. Try to do the parsing. 
eck for scope acceptance. 


zo 


scope_flag 


BEGIN 
IF short scope () 
THEN 
BEGIN 
airen ee = ,pathname_desc; 
RETURN sts$k_success; 
END 
ELSE 
BEG! 
IF parse_pathname () 
BEGIN 
Ty Age = ,pathname_desc; 
RETURN sts$k_success; 


EN 
ELSE 
“ RETURN sts$k_severe; 


END 


ee parse_pathname () THEN RETURN sts$k_severe; 


Set the value state 
check_pathname (); 


: Return all the expected values. 

-pathname = ,pathname_desc; 

-value = .value_state; 

-last_desc = last_token_desc; 

RETURN sts$k_success; 

END; 'End of DBGSNPATHNAME _PARSER 
-TITLE DBGNPNP 
-IDENT \vV04-000\ 


-PSECT DBGSPLIT,NOWRT, 


BGNPNP .B32;1 


2 
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als 

als 


SHR, PIC,0 


_———————————— 


“19 DEBUG. SRC JDBGNPNP.B32; 1 
00 00000 P.AAA: .BYTE 
-PSECT DBGSOWN,NOEXE, PIC,2 
00000 argrene + ipa 
0000C ae 


«BL 
00010 DUMMY: .BLKB 
00014 oleae 


00018 PATHNAME. DESC: 
0001¢ NAME _VECT: 
00020 NAME_INDEX: 
00024 VALUE STATE: 
00028 NUMBER_BUFFER: 
0002¢ aeorceel x} 


=1984 01:50:44  VAX-11 BLiss-32 v4.0-742 
3Be 93:79; %8 Cib 
0 


4 
4 
4 
4 
4 
4 
4 
4 
1 
3 
4 
D 


TOKEN LKB 
00034 TOKEN. “SCANNER ADDR: 
00038 LEX_STRING_DESC: 
-BCKB 12 


NULL_STRING= 
.EXTRN SYSSFAO, “pacsanext _WORD 
“EXTRN DBGSNSYNTAX_ERROR 

-EXTRN DBESNMATCH. wee INFO 


EX 

~EXTRN DBGSGET MEM 

~EXTRN DBG GSNSANE DECIMAL. INTEGER 
-EXTRN DBGS$GB_LANGUAGE 

-EXTRN DBGSGL— “ORIG COMMAN 

-EXTRN DBGS$GL_UPCASE OCOMMARD - PTR 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


009¢ 99009 ENTRY DBGSNPATHNAME -PARSER. Save R2,R3 
53 00000000' EF 9E 00 MOVAB PATHNARE . R3 
05 6C 91 00009 CMPB sé AP), @ 
06 18 9909¢ BLEQU 
52 18 AC 00 000 : OVL 4(AP), SCOPE_FLAG 
08 11 0001 BRB $ 
D4 00014 1$: CLRL = SCOPE_F 
FC 6 AC D 16 2$: MOVL = INPUT? INPUT DESC 
1¢ a3 8 AC D 1 MOVL SC ANNER OKEN_SCANNER_ADDR 
20 A3010E0000 8F DO 00 MOVL #1769 P50. rex STRING_DESC 
24 AS D4 00 CLRL —LEX_STRING_D DE C44 
5 FC =6AS DO 00028 MOVL NPOT_DESC; 
ce 046 ad OD 99 F MOVL (RO)? LAST TOKEN DESC +4 
&8 A 60 BO 000 W (RO), ‘LAST_TOKEN_BESC 


2 
1b-sé =1984 01:50:44 AX-11 Bliss-32 V4.0-742 Page 
12-ee= 198s 93:39:43 «= HOMGuG. Shc Ssacnenesose0% of 63) 
4 DD 8 PUSHL #52 : 
000000006 0 rf FB % CALLS #1, DBGSGET_TEMPMEM : 
6 p 41 MOVL RO, PATHNAME DESC : 
046 =A 08 AO 9E 00044 MOVAB 8 (RO), NAME_VECT : 
08 AS’ D4 00049 CLRL NAME_INDEX : 
60 94 0 4C CLRB = (RO) : 
02 AO 94 4F CLRB # (RO) : 
04 Ad D4 999 CLRL (RO) : 
146 AS 94 24 CLRB § AUGMENTATIONS ; 
Oc AB of ce 0057 MNEGL #1, VALUE STATE : 
sooov {8 st a : 
68 2 EB ith BLES _—s RO. 3 - : 
0000v CF 00 FB 00066 CALLS #0, PARSE_PATHNAME : 
OE 30 £9 00068 BLBC : 
oc Bc 63 00 006 38: MOVL § PATHNAME_DESC, @PATHNAME : 
1F 11 000 BRB 7 : 
0000v CF 90 rg 00074 4$: CALLS #0, PARSE_PATHNAME : 
04 0 €8 00079 BLBS RO. 6$ : 
0 04 BO gore 5$: MOVL #4. RO : 
0000v CF 0 FB 99080 6$: CALLS #0, CHECK_PATHNAME : 
0c BC 63 DO 00085 MOVL §PATHNAME DESC, a@PATHNAME : 
10 BC 0c a3 00 00089 MOVL VALUE_STATE, @VALUE 3 
14 «BC E8 Ad 9E 00086 MOVAB LAST TOKEN_DESC, @LAST_DESC : 
0 01 DO 00093 7$: MOVL #1, RO 5 
04 00096 RET ; 


; Routine Size: 151 bytes, Routine Base: DBGSCODE + 0000 


; 761 0892 1 
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v04=000 \e-8ep-1986 42:17:18 — EDEBUG. SRCIDBGNPNP- B32; a) 


: 763 93 1 ROUTINE PARSE_PATHNAME = 

; 764 94 «1 

; 765 95 1 lee 

3 oes 36 ! : FUNCTIONAL DESCRIPTION: 

; 768 0898 > This routine recognizes legal DEBUS pathnames. All special cases are 
: 769 1} trapped first, then the routine goes into a loop to accept the remaining 
; 770 0900 1! elements of the pathname. nugaen ations are used to assure the the ‘3L' 
3; ri 344 7} constructs appear only one time, as well as to check the validity of 
: ef b4 : nvocation numbers and numeric pathnames. 

; 774 904 1 ! FORMAL PARAMETERS: 

s “zs 905 1! 

3; Boe 1! NONE 

: 777 0907 1! 

: 778 0908 1 ! IMPLICIT INPUTS: 

3; 779 0909 1! 

; 780 0910 1! Numerious MODULE LEVEL OWN'ed variables. 

3; 781 0911 1! 

3 ree o3t¢ 1 ! IMPLICIT OUTPUTS: 

3; we 0913 1! 

; ree 344) : The pathname descriptor is constructed for valid pathname references. 
; 786 0916 1 ! ROUTINE VALUE: 

3; fer 0917 1! 

; «788 0918 1! An unsigned integer longword completion code 

: 789 0919 1! 

; 790 0920 1 ! COMPLETION CODES: 

; «(791 0921 1! 

3 a 44 § : } STS$SK_SUCCESS (1) - Success. Pathname constructed. 

3: 794 0924 1! STSSK_SEVERE (4) - Failure. Illegal pathname. 

; 795 0925 1! 

; 796 0926 1 ! SIDE EFFECTS: 

3; 797 0927 1! 

; 798 0928 1! NONE 

; 799 3544 4 

; 800 0930 1 !-- 


2 
-Sep- 2:50:44 AX-11 Bliss-32 V4.0-74 
18-Sep-1984 94:70:48 DEBUG. SRCIDBGNPNP_ B32; 


; 80 931 BEGIN 

; B04 : g ! Get the first token and check for all the legal pathname beginnings 
; i 

; 806 3 g get_token; 

: 808 a $ CASE .token FROM dbg$k_tok_lowest TO dbg$k_tok_highest 

; 8 938 OF 

RP BB oe 

B18 si cata t NOT Hirst line () THEN RETURN sts$k_severe; 

; 814 94 ; 

: Bi b9c8 ets TaN Smitten () THEN RETURN sts$k_severe; 

: 094 : ! Looking for a global reference 
; 819 o347 cata NOT olabal_item 9) THEN RETURN SteSh. severe; 

: 890 $980 : ! starting with an id 

; B 0981 Cato HORI ae iten ) THEN RETURN’ sts$k_ severe; 

; 8 95 : 

: $k_tok_int] : ! Numeric scope 
F 835 $e setts gg a. () THEN RETURN sts$k_severe; 
; dbg$k_tok_reg] : 

; $56 $989 , SRETURN ote$h success: 

; 829 0958 

; £39 $900 eee hot anene cen () THEN RETURN sts$k_severe; 

; HE $962 CINRANGE, OUTRANGE] : ! Error 

> 834 096 RETURN sts$k_severe; 

: 0964 

; 836 0965 TES; 


DEBUG. SRCIDBGNPNP BS; 


H 2 
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3 3 96 ' 

$ 9 ' Loop, collecting the rest of the pathname 

: B40 : 8 . “ 

; 84) 9 et token; 

; tg aN BHICE token EQL dbg$k_tok_bs AND NOT .augmentations Cterminal_state] 
> 844 44 BEGIN 

: cg 2 Check for one more trip through Loop 

: 84 975 IF ,augmentations Cterminal_pending] 

48 976 THEN —s 

3 Be8 44 augmentations Cterminal_state] = true; 

3 851 He advance; 

3 S26 3464 get_token; 

; Ht 098 CASE .token FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
: 855 098 OF 

; 856 0984 SET 

; 857 0985 

; 858 098 Cébgsh. tok_line] : ! ‘LINE 

; 859 098 NOT” Line_ item () THEN RETURN sts$k severe; 
: 860 0988 

; 861 0989 Cdbgsk_ tok_label] : ! "ZLABEL’ 

; Ha 344 F-NOT Label_ item () THEN RETURN sts$k _severe; 
; 864 099 Cdbgsk. tok_id) : ID found. May have an invocation number. 
; ae? oad F~NOT id_ item G THEN RETURN sts$k _severe; 

3; 867 099 Cdbg$k_ tok_int] : ' LINE or LABEL number 

3 ae8 344 IF "NOT integer_item () THEN RETURN sts$k _severe; 
; 870 0998 Cdbg$k_ tok_qname] : ! ZNAME ‘name 

3 18 4444 IF “NOT” qname_ item () THEN ae TURN sts$k_severe; 
3 B78 1001 CINRANGE, OUTRANGE) : ! Error 

3 874 100 RETURN sts$k_severe; 

; 875 100 

; 876 1004 TES; 

3; 877 1005 

; 878 ee ' Obtain the next token 

3; 879 100 ! 

; 880 1008 get_token; 

} Ht 1999 

3; 882 1010 END; ! End of loop 


Page 20. 
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> 884 1011 : 

Bg i Must end parsing on eol 

ett : i IF .token NEQ dbg$k_tok_null 

34 1918 -token NEQ dbg$k_tok_inval 

832 1018 -token NEQ dbg$k_tok_id 

; 89 1020 (.token NEQ k_tok R. n 

; B34 i Tween en OR .last_token NEQ dbg$k_tok_id) 
: Bor 1054 ; 

: 343 0 é See if a 'ZLINE’® or ‘ZLABEL' has been left dangling 

: eee i ,sugnentat ions Cline_pending] OR .augmentations Clabel_pending) 
+ 8 2 RETURN sts$k_severe; 

eee 1082 RETURN sts$k_success; 

; 906 103 END; ! End of parse_pathname 


007C 00000 PARSE_PATHNAME: 
- WORD 


Save R2,R3,R4,R5,R6 : 0893 
56 00000000' EF 9 00002 MOVAB TOKEN, R6 : 
6 DD 00009 PUSHL R + 0931 | 
08 A6 9F 00008 PUSHAB LEX STRING_DESC : 
E4 Ag DD 00005 PUSHL INPOT DESC : 
04 B6 0 FB 4 CALLS #3, @TOKEN_SCANNER_ADDR $ 
06 6 pl 0013 CMPL TOKEN, #6 : 
9 12 0001 BNEQ =s«a1$ : 
09 08 Ag B1 OO01A CMPW LEX_STRING_DESC, #9 : 
03 1B 0001 BLEQU§ 1$ : | 
66 DO 000 MOVL #1, TOKEN : | 
09 00 66 CF 00023 1$: CASEL TOKEN, #0, #9 : 0937. 
001 0017 010D 0100 0027 2$: WORD ; $-2$,- ; 
010D 0033 002¢ 002 O02F 5$-2$,- ; 
OODF 0111 0037 4$-2$,- : 
5$-2$,- 3 
$-2$,- : 
site : 
5$- $,- 3 
6$-2$,- 3 
1$-2$ : 
00F6 31 0038 3$: BRW 5$ ; 0963 
0000V CF 0 4 8 4%: CALLS #0, FIRST_LINE 3; 094 
1A 1 4 BRB 9 ; 
0000v CF 0 rs 45 5$: CALLS ‘ » FIRST_LABEL ; 0945 
0000v CF FB 0004C 6 #0, GLOBAL_ITEM > 0948 | 


1b-5e Sep-1984 01:50:44 AX-11 Bliss-32 V4.0-7 
1e-8e8-19Re 93:39:43 — HOkeuG. Bhi ssecaene:ose49 
11 BRB 9$ 
0000v CF 6 FB ; 7$ CALLS ’ , IDITEM 
0000V CF 8 Fe A gs: CALLS #0, pense. PATHNAME 
9 E F $: BLBC 83E-s«aRO,. 3 
é BD 10$:  PUSHL R6 
08 Ad 9F 000 PUSHAB LEX STRING_DESC 
E4 ag DD 0 7 PUSHL INPOT_DESC™ 
04 B86 03 FB A CALLS #3, a@TOKEN_SCANNER_ADDR 
06 66 D1 00 $ CMPL TOKEN, #6 ~ 
if BNEQ 11$ 
09 08 ag 8 7 CMPW LEX. STRING_DESC, #9 
0 : 7 BLEQU $- 
66 1 pO 00079 MOVL #1, TOKEN 
04 66 D1 0007C 11$:  CMPL == TOKEN, 
13 007 BEQL ©-'13$ 
008D 31 081 12$: BRW 23$ 
FC A6 5 000 135$: TSTB —-- 
F8 19 00087 BLSS 12$ 
05 FC AG 6 €1 90089 BBC #6 AUGMENTATIONS 14$ 
FC AG 80 8F 8 OO8E BISB2 #138, AUGHENTA TIONS 
A6 08 A6 03 0095 14$: MOVC #8, LEX_STRING_DESC, LAST_TOKEN_DESC 
51 E4 Ab D9 0099 MOVL INPUT D _DESC, 
50 0c As 04 Al ¢ 9090 SUBL3 4(R1)7 LEX_STRING DESC+4, RO 
5 08 A6 3C OO0A MOVZWL LEX_STRING-DESC, R2 
50 5 co 90047 ADDL 2 Re, “R0 
61 A2 OOOAA SUBW R (R1) 
04 Al OC 8642 9E OO0AD MOVAB @LEX STRING_DESC+4(R2], 4(R1) 
DC A6 66 00 i ty MOVL Tt LAST “TOKEN 
56 DD 00087 PUSHL 
08 A6 9F 00089 PUSHAB LEX_STRING_DESC 
51 DD 9008¢ PUSHL 1 
04 86 03 FB 000B CALLS #3, @TOKEN_SCANNER_ADDR 
06 66 D1 000C CMPL TOKEN, #6 
09 12 000¢ BNEO = 1 
09 08 Aé B81 000C CMPW  LEX_STRING_DESC, #9 
03 18 900¢8 BLEQU 15$ 
66 01 DO 000CD MOVL #1, TOKEN 
09 00 66 CF 99000 15$:  CASEL TOKEN, #0, #9 
001D 0016 0060 0060 0004 16$: WORD $-16$,- 
0 0028 0024 0060 o900¢ 5$-16$.- 
0032 0060 O0E4 178-168. 
238-168,- 
$-16$.- 
$-16$.- 
$-16$.- 
$-16$.- 
1$-16$ 
4A 11 it BRB 5$ 
0000V CF 90 fo itty 17$: pants Seg LIME ITER 
0000v CF 09 FB Fl 188: CALLS é { LABEL_ITEM 
0000v CF a re i 198: CALLS é { ID_ITEM 
0000v CF 5 FB OOOFF 208: CALLS #0, INTEGER_ITEM 
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3; Routine Size: 
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316 bytes, 
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FC AG 


Routine Base: 


2 
rt 
HABE a: 
res) 84 01 3 se 
6 0 111 238: 
$8 7 dot 
75 83 8118 
50 1 00118 
6 TB 
oC A a 
09 12 01 
FC AG EB 00198 248: 
02 £1 O019F 
0% D0 00184 258: 
04 00137 
01 DO 00138 26S: 
04 00138 
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bas ST 
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8  EDEBUG.SRCIDBGNPNP.B32; 
$ 

‘8 QNAME ITEM 
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AX-11 Bliss-32 v4.0-76 Pa 4. 
DEBUG. SRC IDBGNPNP.B32: ” Ait 
ROUTINE FIRST_LINE = 


lee | 


i FUNCTIONAL DESCRIPTION: 


This routine is called when the pathname begins with ‘ZLINE'. Special 
handling is given to the resolution of Line numbers vs. numeric pathnames. 


FORMAL PARAMETERS: 
NONE | 
IMPLICIT INPUTS: 
Augmentations and MODULE OWN'ed variables. 
IMPLICIT OUTPUTS: | 
NONE | 
ROUTINE VALUE: : 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSS$K_SUCCESS 
STSSK_SEVERE 
SIDE EFFECTS: 
ALL or part of the pathname descriptor may be constructed. 


- Success. Part or all of pathname parsed. 
- Failure. Illegal construct encountered. 


lt te tee eet et ee tee 


BEGIN 


augmentations Cline_pending] = true; 
advance; 


! Get the next token. If it is an rat we are going to have to 
do some lookahead to see if it is a line number or numeric scope. 


get_token; 
SAGE gtenen FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
SET 
esaecin = : ! Do nothing 
END; 
Cdbg$k_tok_id]) : ! ID followed by possible invocation number 
IF "NOT id_item () THEN RETURN sts$k_severe; ! Save the id and advance 


| 
Mm 2 
16-Sep-1984 50:4 AX-11 Bliss-32 v4.0-74 Page 25 
18-86-1382 03:39:48 DEBUG. SRC JDBGNPNP .B32; ° rH 
3 266 1 98 Cdbg$k_tok_int] : ! Here we must do lookahead to see if we have a Line number | 
; 3e6 | 93 IF"NOT"Line_lookahead () THEN RETURN sts$k_severe; 
; 1095 CINRANGE ,OUTRANGE] : =! Error 
3 358 1 38 RETURN sts$k_severe; | 
: 3h 1998 TES | 
3 378 1099 
; 974 1100 RETURN sts$k_success; 

; 975 1101 
; 976 1102 END; ! End of FIRST_LINE | 
007C 00000 FIRST_LINE: 

-WORD Save R2,R3,R4,R5,R6 3: 1035 
56 00000000' Ff 3 90002 MOV TOKEN, R6 ; 
FC A6 1 § 4 BISB #1, AUGMENTATIONS 3; 1072 
DO A6 08 A6 08 28 it MOVC #8, LEX STRING_DESC, LAST_TOKEN_DESC $ 
51 E46 Ab b9 0001 MOVL. INPUT_DESC, : 
50 0c A6 04 Al § 0017 SUBL3 4(R1), LEX _STRING_DESC+4, RO é 
52 08 A6 3C 0001D MOVZWL LEX_STRING-DESC, R2 : 
50 52 CO 00021 open R2, RO F 
61 50 A2 00024 SUBW RO, (R1) 5 
046 «AI OC 8642 YE 00027 MOVAB aLex STRING_DESC+4(R2], 4(R1) g 
oc A6 88 DO 00020 MOVL TOKEN, LAST_TOKEN 3 
6 DD 00031 PUSHL R 3; 1073 
08 A6 YF 00033 PUSHAB LEX_STRING_DESC 3 
51 DD 00036 PUSHL 5 
04 #86 03 FB 00038 CALLS #3, @TOKEN_SCANNER_ADDR $ 
06 66 Dl itty CMPL TOKEN, #6 3 
09 12 0003F BNEQ 3 
09 08 A6é Bi 00041 CMPW bEX_ STRING DESC, a9 3 
03 18 00045 BLEQU $ $ 
66 01 00 00047 MOVL #1, TOKEN 3 
09 00 $6 CF OO04A 1$ CASEL TOKEN, #0, #9 : 1080 
0025 0025 0025 O06 Bones 23 -WORD 6$-2$,- 3 
0025 001D 0016 30 9 0056 6$-2$,- 3 
0025 025 0005E oe 3 
$-2$,- 3 
$-2$.- : 
$-2$,- 3 
6$-2$,- 3 
6$-2$,- 3 
6$-2$ PF 
F 11 00062 RB 6$ 3 1096 
0000v CF ‘o re 3$: sALLS ‘ - IDLITEM : 1090 
0000v CF F 4$: CALLS 4&0, 4 JME _LOOKANEAS Z 1093 | 
4 E 5$: BLBS RO, : 
0 4 yi f 6$: nets #4, RO : 
50 01 00 0007 #1, RO ; 1100 | 
Be 7 : 1102 | 
| 
| 


N 2 

16-Sep-1984 01:50:44 AX-11 Bliss-32 V4.0-74 P 6 
yO 000 1e=geR713Be 93:39:45 = HORGUS Bhi SSacaewe-os5, age §¢ 
; Routine Size: 123 bytes, Routine Base: DBGSCODE + 0103 


: 977 1103 1 


3 
OBGNPNP 1e-se 1984 01:50:44 AX-11 Bliss-32 V4.0-742 
v04-000 12280 8= 1382 PE EET: DEBUG. SRC IDBGNPNP.B32; 1 
; 979 1104 1 ROUTINE LINE_LOOKAHEAD = 
; 980 1105 1 
; 981 1108 1 S44 
: 38 1108 : } FUNCTIONAL DESCRIPTION: 
3; «984 1109 1! Distinguishes between Line numbers and numeric pathname items when '%LINE‘ 
§ MH 1419 : } is encountered first in pathname parsing. 
; 987 1116 1! If the numeric pathname item is found, the entire pathname descriptor is 
> 988 11158 1! completed. 
> 989 1114 1! 
; 990 1115 1 =! FORMAL PARAMETERS: 
; Wi 1116 1! 
; 117 1! NONE 
; 99 1118 1! 
> 994 1119 1°! IMPLICIT INPUTS: 
> 995 1120 1! 
: 996 ria MODULE OWN'ed variables 
; 997 1156 73 
; 998 11235. 1 ! IMPLICIT OUTPUTS: 
; .999 1124 1! 
; 1000 1125 1! NONE 
3; 1001 1126 1! 
3 1 1127 1 ! ROUTINE VALUE: 
3; 100 1128 1! 
3; 1004 1192 - An unsigned integer longword completion code 
: 17005 1130 1! 
: 1006 1131 1 ! COMPLETION CODES: 
: 1007 1136 2 : 
; b's M137 : STS$K_SUCCESS - Success. Valid entire or partial pathname parsed. 
; 1010 se 9 4 STSS$K_SEVERE - Failure. Illegal pathname found. 
3: 1011 1136 1! 
5 iste 1137 1°! SIDE EFFECTS: 
3; 101 1138 1! 
3; 1014 1139 1! Part or all of the pathname descriptor may be constructed. 
: 1015 1140 1! 
3: 1016 1141 1 fe- 
3; 1017 1336 BEGIN 
3; 1018 114 LOCAL 
3 1019 1144 LENGTH 
> 1020 1145 2 POINTER; 
: 1093 1149 tations Cli ding] = t 
s augmentations ne_pending] = true; 
1098 1148 2 
3: 1024 1149 save (length, pointer); 
3 1025 1150 advance; 
3: 1026 1151 get_token; 
3; 1027 1136 
3: 1028 115 CASE .token FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
; 1983 1154 OF 
: 1030 1155 SET 
3; 1031 1136 
: 10% 115 ! We appear to have a properly terminated Line number. Note that we 
; 103 1158 : must accept a line number terminated by an ID as valid because the 
3 Ht 1120 ID could be ‘DO’ (as in “SET BREAK 2LINE 20 DO(.....)°°). 


3 
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v04-000 14 eats 7 PRT DEBUG. SRC JDBGNPNP .B32; 1 


RETURN sts$k_severe; 


co 
“ 


TES; 
RETURN sts$k_success; 
END; ! End of LINE_LOOKAHEAD 


; 1036 1161 Cdbg$k_tok_null 

: 1037 116¢ dbgsk-tok-inyal, 

; 1038 116 dbg$k_tok_idJ: 

; 1039 1164 

; 1040 1322 restore (.length, .pointer); 

: 1041 11 $ get_token; 

; ed 116 . 

; 104 1168 IF NOT integer_item () THEN RETURN sts$k_severe; 
> 1044 1169 

3; 1045 1170 END; 

; 1046 1171 

> 1047 1106 Cdbg$k_tok_bs] : ! Lookahead one more time 

>; 1048 117 BEGIN 

3; 1049 1174 advance; 

: 1050 1175 get_token; 

3; 1051 1176 : 

3 1926 1177 3 IF_.token EQL dbg$k_tok_int 

; 105 1178 3 THE 

3 1054 1179 4 BEGIN 

3 1055 1180 4 ; 
3; 1056 1181 4 ! The first integer we found was a numeric scope 
; 1057 BF 4 : 

; 1058 1183 4 restore (.length, .pointer); 

; 1059 1184 4 get_token; 

3; 1060 1185 4 

3: 1061 1186 4 IF NOT numeric_pathname () THEN RETURN sts$k_severe; 
: 1066 1187 4 END 

3; 106 1188 3 ELSE 

: 1064 1189 4 BEGIN 

: 1065 1190 4 : 

3 1066 1191 4 ! The integer was a Line number 

3 1067 1336 4 : 

3; 1068 1193 4 restore (.length, .pointer); 

3; 1069 1194 4 get_token; 

3; 1070 1195 4 

3 1071 1196 4 IF NOT integer_item () THEN RETURN sts$k_severe; 
3 1072 1197 4 

3; 10735 1198 3 END; 

3 1074 1199 2 END; 

; 1075 1200 2 

3; 1076 120 § Cdbg$k_tok_dot] : ! Line number with a dot 
; 1077 120 BEGIN 

: 1078 120 restore (.length, .pointer); 

: 108 1 get_token; 

: 1081 12 IF NOT integer_item () THEN RETURN sts$k_severe; 
: Ons 12 END; 

; 108 12 

; One \s CINRANGE ,OUTRANGE) : ! Error 

3; 10 1 

: 10 1 

3; 10 1 

; 10 1 

2 10 1 

; 10 1 
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DBGNPNP 
v04-000 


O3FC 00000 io Loe 


WO Save R2,R3,R4,R5,R6,R7,RB,RI : 1104 
59 00000000° FF 9 9002 MOVAB TOKEN, : 

FC AO 1 8 900 BISB2 #1 AUGMENTAT IONS + 1147) 
56 4 Ad p 00D MOVL  —«INPUT_ + 1149 
5B 66 3C 00011 MOVZWL (R6),~ PENG NGTH : 

57 04 Ab DO 00014 MOVL. 4(R65, POINTER ; 
dO. Ad 08 A9 08 2 00018 MOVC3 #8, LEX STRING DESC LAST. TOKEN_DESC : 
50 0c a9 04 Ab ‘ 1E SUBL3 4(R6), CEX_STRING DESC+4,~RO : 
51 08 Ad 3C 00024 MOVZWL LEX_ STRING™ DESC, oA : 
50 51 CO 00028 ADDL2. R1,~ RO : 
66 50 A2 00028 SUBW2 RO, (R6) ; 
04 Ab 0c 8941 i 000¢E MOVAB LEX _STRING_ DESC+4CR1], 4(R6) ; 
pc Ad 69 DO 00034 MOVL TOKEN, LAST_T § 
59 DD 00038 PUSHL 9 + 1150 
AD «OOF 0005A PUSHAB LEX_STRING_DESC ; 
56 DD 00030 PUSHL Re F 
03 FB 0003F CALLS #3, @TOKEN_SCANNER_ADDR : 
69 01 00043 CMPL TOKEN, #6 ; | 
09 12 00046 BNEQ = 1 : 
AI Bi 00048 CMPW LEX_STRING_DESC, #9 : 
03 1B 0004C BLEQU § 1$ : 
01 DO O004E OVL #1, TOKE ; 
69 CF 00051 1$: CASEL TOKEN, #0, #9 : 1153) 
00A3 00055 2$: 1$-28,~ : 
0017 00050 7$-2$.- F | 
OOCF 00065 11$-2$,- : 
11$-2$,- ; | 
7$-2$.- : 
11$-2$,- F 
7$-2$,- : 
11$-28,- ; 
11$-2$ F 
0088 31 00069 BRW 11$ + 1210 
08 28 0006C 3S: MOVC3 #8, LEX_STRING_DESC, LAST_TOKEN_DESC : 1173 | 
A9 00 0072 MOVL. INPUT_DESC, RO™ ; | 
AO ‘ 0076 SUBL3 4(RO)> LEX. STRING DESC+4, R1 : | 
Ag 3¢ a0085 MOV ZuL eae “DESC, Re : 
a¢ oS SooRs ayes RTS ROD ee 
B9%e 9 90086 MOVAB aLex STRING DESC*4(R2J, 4 (RO) ; | 
: DO 0008C OVL TOKEN, LAST~TOKE F 
9 bo 00 PUSHL R9 3 1174) 
AS OF 009 PUSHAB LEX_STRING _pESC F 
30 DD 0009 PUSH : 
03 FB 0097 CALLS aTOKEN, SCANNER_ADDR : 
69 01 0009B CMPL TOKEN. ; 
09 Ne 0 H 3 BNEO ; 
ag e A CMPW X_STRING_DESC, #9 : 
: OOA4 BLEQU : 
1 D0 00046 OVL #1, TOKEN ; 
AD DO 000A9 48: MOVL —INPUT_DESC, RO ; 


1183. 


3 
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06 9 D1 000A CMPL ‘TOKEN, #6 
ro B BNEG 6$ 
60 8 B B MOVW LENGTH, (RO) 
04 Ad D B MOVL POINTER, 4(RO) 
9 pp 089 PUSHL R 
08 Ad 9F 000BB PUSHAB LEX_STRING_DESC 
30 DD OBE PUSHL R 
04 89 0 FB C CALLS #3, @TOKEN_SCANNER_ADDR 
06 69 01 00064 CMPL TOKEN, #6 
09 12 000C7 BNEG 
09 08 Ag Bi 009 CMPW LEX_STRING_DESC, "9 
0 8 00CD BLEQU 
69 1 00 O00CF MOVL #1, TOKEN 
0000v CF 09 FB 00002 5$: CALLS #0, NUMERIC_PATHNAME 
48 11 0000 BRB 108 
60 38 BO 00009 6$: MOVW LENG 
04 Ad DO 000D¢ MOVL SeATER, O80) 
59 DD 000E0 PUSHL R 
08 Ad OF OO0Ee PUSHAB LEX_STRING_DESC 
50 DD O00E PUSHL 
04 89 03 FB 000E7 CALLS #3, @TOKEN_SCANNER_ADDR 
06 69 01 OOOEB CMPL TOKEN, #6 
2C 12 OOOEE BNEQ 9 
09 08 AS B1 000FO CMPW ‘wean "9 
33 1A OOOF4 BGTRU 
4 11 000F6 BRB 
50 E4 Ad DO 000F8 7$ MOVL Nn pu gPESC 
60 58 BO OO00FC MOVW LENG CRO)” 
04 A0 57 00 Ou0rF MOVL eer cA, 4(RO) 
59 DD 00103 PUSHL R 
08 Ad OF 00105 PUSHAB LEX_STRING_DESC 
50 DD 00108 PUSHL 
04 89 03 FB OO10A CALLS #3, @TOKEN_SCANNER_ADDR 
06 69 D1 0010E CMPL TOKEN, #6 
09 12 00111 BNEOQ 9 
09 08 Ad B1 00113 CMPW  LEX_STRING_DESC, #9 
03 18 00117 BLEQU 9$ 
69 01 00 00119 8s: MOVL #1, TOKEN 
0000v CF 00 FB 0011C 9$: CALLS #0, INTEGER_ITEM 
04 50 €8 00121 10$:  BLBS RO. 12$ 
50 04 DO 00104 11$:  MOVL #4. RO 
04 00127 RET 
50 01 00 00128 128: MOVL #1, RO 
04 00128 RET 


; Routine Size: 300 bytes, Routine Base: DBGSCODE + 024E 


3 1092 1217 1 
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ROUTINE FIRST_LABEL = 
' 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


Invoked when the pathname begins with 'ZLABEL’. Lookahead may be needed to 
distinguish a numeric pathname item from a Label number. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
MODULE Level OWN'ed variables 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSSK_SUCCESS - Success. Part or all of a valid pathname parsed. 
STSSK_SEVERE - Failure. Illegal pathname encountered. 
SIDE EFFECTS: 


Part or all of the pahtname descriptor may be constructed 


BEGIN 
augmentations Clabel_pending] = true; 
advance; 


! Get the next token. If it is an integer, we are going to have to 
do some lookahead to see if it is a label number or numeric scope. 


SOON VSN $0 ODA UNE WIN 0 OD NOUE WN S(O OONOUS WOO 


get_token; 
CASS Soham FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
SET 
Cabg$h_tok_ps) : ! Do nothing 
71 Cdbg$k_tok_id]) : ' 1D followed by possible invocation number 


IF"NOT~id_item () THEN RETURN sts$k_severe; 
Cdbg$k_tok_int] : ! Here we must do lookahead to see if we have 


Be Oe Oe Be Oe Be Be Oe Oe Oe Oe Oe Os Oe Oe FSH Os Oe OF Se Se Oe Oe BE Se OF Oe SH Oe OF OF OF He BH Se SF Oe OEE SFOs SESE SESE SESE SH Se ee SESE Se Sears 
i Le 
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rp e000 1 abep- 1382 2:1 DEBUG. SRC RCIDBGNPNP. 832; . es 
3; 1151 1275 a label number or a numeric scope 
; 1 ¢ : f IF NOT Label_ saohokoed () THEN RETURN sts$k_severe; 
3 11546 127 Cinniaet OUTRANGE) : ' Error 
> 1155 127 TURN sts$k_severe; 
s 41 8 1280 
3 11 1281 TES; 
: 1158 128 
; 1159 1 RETURN sts$k_success; 
: 1160 1284 
: 1161 1285 END; ! End of FIRST_LABEL 


007C 00000 FIRST_LABEL: 
WORD 


ql Fove R2,R3,R4,R5,R6 : 1218) 
56 00000000" EF 3 0000 MOV TOKEN, R6— ; 
FC AG 04 8 000 B1SB #4, AUGMENTAT IONS + 1255 
DO =A 08 A6 08 28 0000 MOVC LEX_STRING_DESC, LAST_TOKEN_DESC : 
51 E46 AG 00 001 VL IN U ; 
50 Oc Ab 04 Al ¢ 001 UBL3 4(R1)> LEX STRING DESC+4, RO : 
5 08 AB 3C 9901p MOVZWL LEX_S SfRING: DESC, R2 : 
5 5 co 0021 ADDL R RO : 
61 50 A2 00024 SUBW (R1) : 
04 Al OC 8642 9 00027 MOVAB SLEX STRING. DESC+4CR2J, 4(R1) : 
DC Ab 66 D0 00020 TOKEN, LAST-TOKE ; | 
56 DD 00031 PUSHL R + 1256 
08 Ab 9F 00033 PUSHAB LEX_STRING_DESC ; 
51 DD 000 PUSHL R : 
04 86 03 FB 00038 CALLS #3, @TOKEN_SCANNER_ADDR : 
06 66 D1 0003C CMPL TOKEN, #6 : 
09 12 0003F BNEG ; 
09 08 Ag B1 00041 CMPW = LEX_STRING_DESC, #9 ; | 
03 1B 00045 BLEQU 1$ F | 
64 01 DO 00047 MOVL #1, TOKEN : | 
09 00 6 CF 0004A 1$ CASEL TOKEN, #0, #9 : 1264. 
0025 0025 002 00 OOO4E 2$ <WORD 6$-2$.- ; | 
001D 0016 0029 0056 6$-2$.- : | 
002 0025 0005€ 6$- $.- : 
$-2$,- 3 
3$-2$,- 3 
4$-2$,- 3 
6$-2$.- : 
$3-53"" Sigiet 
F 11 00062 BRB 6$ ; 1279 
0000v CF Q Fe 6 64 3$: CALLS ’ , IDLITEM 3 1272 | 
0000v Cr 6 FB 00068 4$: CALLS 0, LABEL _LOOKAHEAD : 1274 | 
4 B 5$: BLBS «RO. 7S ; | 
0 04 p 73 6$: MOVL % ; | 
50 01 6 90077 7% movL oat, RO S183. 
be 007A RET ‘ : 1388 


PNP 
v04-000 
3; Routine Size: 


: 1162 


123 bytes, 


1286 1 


Routine Base: 
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$ 
$ 
ROUTINE LABEL_LOOKAHEAD = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
Performs lookahead to distinguish a numeric pathname item from a Label number. 
If a numeric pathname item is found, the entire pathname wiil be parsed. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
MODULE level OWN'ed variables, including the augmentation vector. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSSK_SUCCESS - Success. Part or all of a valid pathname parsed. 
STSS$K_SEVERE - Failure. Invalid pathname found. 
SIDE EFFECTS: 
Part or all of the pathname descriptor may be constructed. 


a ed ee ee te ee te te te te te et te tt 


BEGIN 


CAL 
LENGTH 
POINTER; 


augmentations Clabel_ 
save (length, pointer 
advance; 

get_token; 


EASE gtehen FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
SET 
Cdbg$k_tok_null 
dbg$k_tok-inyal, 
dbg$k_tok_idJ: 
BEGIN 
restore (.length, .pointer); 
get_token; 


DIDI IID a et i kk a dd dd 


A. AAA AI AAI AIAIANI NAINA 


woo w CIAO OO NONE OOD NOMNR WWM ODRS NM RON Oke aR te Oon 


CAAPPOPIMIMIPDMNPDPINIMININPINPIPIIII IAN at rt at dh 


pending) = true; 


AVA SSHUS APA OSSAO AE MO DOO TRAP SOB E IIS Doe UAE 


ah at nd a 


= 


WwnN—O 


a a ee ee ee ee ee a ee el el ce cl ct ee ce el el a a a a ee ee el 
Fe 


me a a a a ak ak a ak ad ad od = a “a as 8 


Ss okokabas 
SOONG UNS 
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: 1221 1344 | 
: } j : 5 IF NOT integer_item () THEN RETURN seat severed 

; } ¢ ! ; END; 

3 } $ : ; Cdbgsk tok. bs] : ! Lookahead one more time 

31 $ 1351 advance; 

: ; \ § get_token; 
> 1231 1354 IF .token EQL dbg$k_tok_int 
: 1938 1355 THE Pit | 
: | 1328 2 BEGIN | 
3 1 5 i 8 4 ! The first integer we found was a numeric scope | 
3 1237 1360 4 restore (.length, .pointer); 

3 : $$ : 1 ? get_token; 

; : ve : $ : IF NOT numeric_pathname () THEN RETURN sts$k_severe; 

3 | 
3; 124 1365 3 ELSE 
i ee sec | 
: 1 45 i 68 4 ! The integer was a label number 
: 1508 1370 4 restore (.length, .pointer); 
3 ise : a ? get_token; 

; 1250 He ? IF NOT integer_item () THEN RETURN sts$k_severe; | 
; 129¢ 1375 3 END: | 
di a 
: 1355 1378 LINRANGE OUTRANGE] : —! ‘Error | 
3 1256 1379 RETURN sts$k_severe; 
; 1257 1380 

$ 1388 138 TES; 
; ! 60 1388 RETURN sts$k_success; | 
: 1562 1385 (1 END; ! End of LABEL_LOOKAHEAD 


03FC 00000 LABEL_LOOKAHEAD: | 
WORD 


os monmeeant ak. os td fave Re R3,R4,R5,R6,R7,RB,RP 3 1287 | 

FC OQ O £ 8 BI S82 ry AUGHENTAT JONS : 1329 | 

E4 Ay 2 0D MOVL INBUT R6 : 1330 | 

11 MOVZWL yy) “TENG fu ; 

04 ag p 14 MOVL aims NTER F 
08 Ag 0 18 MOV tex. SIRING DESC LAST. I KEN_DESC : 
0c Ag 4 ag ¢3 1€ SUBL Ath EX STRING DESC : 
51 8 A 24 MOVZUL ten ethite “DESC, Ri ; 


SS , 


3 
GNPNP 16- e AX-11 Bliss-32 V4.0-74 Pa 
yOe~000 1exge=}38e 93:79:37 DEBUG. SRC IDBGNPNP. B32; adit bd 
50 1 ¢ a ADDL ¥. RO : 
64 $0 A B anntg RO, (R6) : 
04 Ag 0c 8941 9 MOVAB LEX _STRING_ DESCe4CR1], 4(R6) : 
DC OA $9 D MOVL TOKEN, LAST-TOKE ; | 
9 DD PUSHL : 1331) 
08 AD OF A PUSHAB LEX_STRING_DESC : 
; DD D PUSHL : 
04 89 FB F CALLS #3, @TOKEN_SCANNER_ADDR : 
6 6 D1 00043 CMPL TOKEN, #6 : 
9 if 46 BNEG =i : 
09 08 ag : 04 CMP LEX_STRING_DESC, "9 : 
: : O04¢ BLEQU : 
69 1D af MOVL #1, TOKEN : 
09 00 69 CF 00051 1$: CASEL TOKEN, #0, #9 3; 1334. 
3 0003 001 0017 0055 2$: WORD 38° $,- : 
00D 0003 0017 O36 0050 $-2$.- ; 
00D3 00D 0065 138-28,- : 
13$-2$,- 3 
te bin 
$-2$,- : 
13$- $,- 3 
13$-2$.- : 
13$-2$,- : 
13$-2$ : 
00BC 31 00069 BRW 13$ + 1379 
50 E4 Ad DO 0006C 38 MOVL = INPU 1 presc RO + 1342 
60 58 B0 90070 MOVW LENGTA, (RO) ; 
04 Ad 57 DO 00073 MOVL ea 4(RO) : 
59 oD 00077 PUSHL RD ; 
08 AD OF 90079 PUSHAB LEX_STRING_DESC : 
30 DD 0007¢ PUSHL R : 
04 89 03 FB 0007 CALLS #3, @TOKEN_SCANNER_ADDR ; 
06 69 D1 0008 CMPL TOKEN, #6 ; 
03 13 008 BEQL «=sSS$ : 
0096 31 00087 4s: BRW 11$ : 
09 08 A9 Bi OOOBA S$: CMPW  LEX_STRING_DESC, #9 ; 
F7 1B 0008 BLEQU 4$ ; 
008A 31 00 BRW 10$ : 
pO. AD 08 08 8 00093 6$ MOVC3 #8, LEX_STRING_DESC, LAST_TOKEN_DESC > 1350 
50 Es A 09 0099 MOVL [wey DESC. RO™ ; 
51 oc Ad 4 AO ¢ 0 SUBL3 4(RO)> LEX STRING DESC+4, R1 ; 
32 08 A9 3C OOOA MOVZWL LEX_STRING-DESC, R2 ; | 
1 3¢ co OA ADDL2 2, RI : 
6 A AA UBW2 R1. (RO) ; | 
04 A 0c Boe 3 A v @Léx STRING_ DESC*4CR2J, 4(RO) ; | 
DC AD : DO 0008 L TOKEN, LAST“T : | 
9 pp 0B PUSHL 9 > 1351 | 
08 Ad 9F 000B9 PUSHAB LEX_STRING_DESC : 
50 DD 000BC PUSHL ; 
04 89 0 FB B CALLS cog OREN SCANNER_ADDR ; 
b 6 p C CMPL : 
9 : ¢ BNEO : | 
09 08 A E ¢ CMP mpd "9 ; | 
BF bie FE rox pee 
0 EAD OD 50 7$: MOVL INPUT_DESC, RO ; 1360 
06 69 D1 000D4 CMPL TOKEN? #6 : 1354 


3 
GNPNP 1b-se -1984 01:50:44 AX-11 Bliss-32 V4.0-74 Pa 7| 
poe 000 1ersee=}88e 95:79:98 = HONGUS. Bhi ssecmene O35, a 
& p7 BNEQ 469 ; 
60 : B 09 MOVW LENGTH, (RO) t 1360) 
04 A D0 000D MOVL POINTER, 4(RO) ; | 
9 BD E PUSHL : 
08 AD 9F OOOE PUSHAB LEX_STRING_DESC : 
; DD OO0E PUSHL ; 
046 89 FB E CALLS #3, @TOKEN_SCANNER_ADDR ; 
6 é D EB CMPL TOKEN, #6 : 
9 ig ef BNEQ : 
09 08 ag B F CMPW EX_STRING_DESC, "9 : 
18 F4 BLEQU : 
69 :-¢ rg MOVL #1, TOKEN : 
0000v CF 9 Fe 0 i 8S CALLS ‘ { NUMERIC_PATHNAME + 1363 
60 8 80 or 9$ MOVW LENGTH, (RO) + 1370 
04 AO 22 DO 0010 MOVL POINTER, 4(RO) : 
9 BD 10 PUSHL R : 
08 AS 9F 00109 PUSHAB LEX_STRING_DESC : 
30 DD 0010¢ PUSHL R F 
04 89 03 FB 0010 CALLS #3, @TOKEN_SCANNER_ADDR : 
06 69 01 0011 CMPL TOKEN, #6 : 
09 12 0011 BNEO si ; 
09 08 Ad B1 00117 CMPW LEX_STRING_DESC, "9 F 
03 18 00118 BLEQU§ 11$ ; 
69 01 00 0011D 10$: MOVL #1, TOKEN ; 
0000v CF 00 FB 00120 11$: CALLS #0. INTEGER_ITEM + 1373 
04 50 €8 00125 128: BL RO, 14$ : 
50 04 DO 00128 138:  MOVL #4. RO F 
04 00128 RET F 
50 01 00 O012C 148 MOVL #1, RO > 1383 
04 0012F RET + 1385 


3; Routine Size: 304 bytes, Routine Base: DBGSCODE + 03F5 


| 
; 1263 1386 1 


-_ —_— _—__— 


144 AX-11 Bliss-32 v4.0 Pa 8 
‘48 YoRauG. Sac SpBcMPNP bse, att sd 


ROUTINE GLOBAL_ITEM = 
144 


i FUNCTIONAL DESCRIPTION: 


Invoked when the pathname begins with '\'. The entire pathname correspoding 
to the global reference will be parsed. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


wooo 
Fwn"O0On 


Oo 
uw 


MPMIPIPOPIPUIPITOPINIPPOPoPenifnnrnr 
Noo Se uae 


SEs 


: This must be an id or an id followed by an invocation number 
iF .token NEQ dbg$k_tok_id THEN RETURN sts$k_severe; 


: Success and end. 
idbg$k_tok_null, 


a ce ee ee et ee a a nt a a at ns I ns 4 = ot So = = ts = 2 = 2 os YY 
ee ee ee ee ee a ed dd od = ed = od 2 = I 3 


ROPIPINMIAPDPOMOPIAPYIPOAINPGD POPPIN PUPYNI DIR) 9 9 9 OP 9 OO OS SS SS SS SY SS SY YS SS SS 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Ge Se Ge Fe Ge Se Ge Se Ge Se Ge Se Se Se Ge Se Ge Se Ge Se Se Ge Se Se Se Se Ge Se Ge Ge Fe Se Se Se Seas 


: 
{ 
i 
. 
: 
9 ! 
ar 
i 8 1 | 
3 401 MODULE Level OWN'ed variables. 
81 208 i IMPLICIT OUTPUTS: 
Ht 404 ! 
Rg A lime 
$8¢ 407 ROUTINE VALUE: 
287 409 An unsigned integer longword completion code 
89 41] COMPLETION CODES: 
291 i$ STS$K_SUCCESS - Success. Global reference parsed. 
338 rtf ; STSSK_SEVERE . Failure. Invalid pathname detected. 
295 ai? SIDE EFFECTS: 
$30 419 i ALL of the pathname descriptor will be constructed for a valid global 
98 420 4 reference. 
ee 
301 4 5 "BEGIN 
308 425 advance; 
304 : $ get_token; 
428 
429 
430 
3 Oe 
11 4 5 add_global_id; 
\¢ 434 advance; 
‘7 : 5 get_token; 
3 ; CASE token FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
7 : SET 
15 é 
$ 4 

1 4 


errr 
Wr—OO0e 


=! 


ee eee 


: 
3 


3 
Sep-1984 01:50:44  YAX=11 Bligs-32 v4.0-7 p 
gep-1986 42:17:18 — EDEBUG. SRCSDGNPNP B32: 10043 


~o 


-000 


< 


| 
3 3 T4864 dbg$k eke {5 Re | 
:1 ¢ 1445 abgSk-to | 
3; 1324 1208 
i 1358 166 END | 
HB i ae Peccmems mes | 
3 ok_int] : ! Invocation number 
: 1399 1451 SBECIN = ’ " | 
3; 1330 14 ¢ add_invocation_number; 
3 1331 14 advance; | 
3 1 ; 1454 3 
i 1288 CINRANGE , OUTRANGE J | 
3; 1335 1289 ‘ : | 
3 1 1028 RETURN sts$k_severe; 
31 145 END; | 
3; 1338 1460 
; 1339 1461 TES; 
; 1340 1066 
3 : 1 be + augmentations Cterminal_state] = true; | 
:1 : 1465 ; RETURN sts$k_success; 
3 1344 1466 
3; 1345 1467 1 END; ! End of GLOBAL_ITEM 


~-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
OD 00001 P.AAB: .BYTE 13 : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
O1FC 00000 GLOBAL_ITEM: 
WORD 


s Save R2,R3,R4,R5, RG, R7,R8 : 1387 | 
58 000000006 00 9€ 00002 MOVAB DBGSGET. TEMPMEM, : 
57 00000000' EF 9E 00009 MOV LEX_STRING_DESC, R : 
3E 10 C2 0001 SUBL2 #167 SP : | 
67 a 08 é 001 wove #8. LEX STRING DESC, LAST_TOKEN_DESC 3 1423 | 
A7 04 «Al tS itt SUBL3 4(R1)7 LEX’STRING_DESC+4, RO : 
38 7 99 ; MOVZWL LEX_STRING-DESC, Re : | 
61 A2 00098 seus RO, ERI | 
Al 04 B74 i 80 B MOVAB aLex STRING DESC*4R2J, 4(R1) ; | 
A7 FB OA p 00 1 OVL TOKEN, LAST-TOKE : | 
008s BF BB 000389 PUSHR:  BoREATR mer 
z rr o§ FB 00% CALLS #3, “atone. SCANNER_ADDR : | 
09 12 0004 BNEG | 
09 ef 3 CPW LEX. STRING_DESC, #9 ; | 
FB OAT 1 Mi 4C MOVL #1, TOKEN : 
05 FB AZ D1 00050 18: CMPL ‘TOKEN, #5 : 


1431 


| SoS 
w 


~ 
N 
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~ 


wo 
oa 
Ld 
a 


Speze Met 
DBGNPNP .B32; 


~ wT ~ 
m ~~ ~~ ww 
wT w w wr 
at = - -— 
Pete Fe Fe Fe Fe FS HS FS FS FS FS FS FS FS FS FS FE FS HS FS FS TS HS HS HSS HS HS OSHS HS HS HS HES HS FS SS SES FS HS HS TS HS SS ES HS SS HS SS SS HEHE HERES HOTS 
t 
i VU 
wT “ 
+ w 
2 a 
vu 
w 2 ” 
oon uw ive) 
'o — ~ a 
oOo 2 o oOo - t 
zu lm | —- & ae a 
—_— N ‘ ~ w 
ec a ta . — 
—- wn ws ” wT 
I w t - < + . a 
=) ' w vw + wo tn | a za 
uw x = w ” NN a 
> w < > - w a 4 . 
iM o = ws = a ve om ow t oa vw 
w ae w &®w~ ice) ”" x w + 4 nw 
=o = = Oo w © +z w Zw 
<a . a . . <= <« a 2s ww a . oa 
z (=) Zzwov wow =z wo ea = =) —- © 
ms =xwW weZnnwe —+ @ . O-auwn wo ” —-Oe 
(=) wu ——WwOwe <= =) 2arw ar Vv w oa <z 
wm aa raza = _ Ww —= “ne ‘6 ” a esa —— + 
ow az 1 —— & ts oOo oO wenams tt or a o Zaw 
za O-w wwvuruox< — 2xQ Orfvxyo Zn Az oO ° we wo 
— it a @ Oo @eZzw wo —w | CMvws —< RKwOoO 2 ZO Zuww 
aw “we AWN A fow ~ Wie ao Ewe = weit a o £s 
=z -—-zia ofa e&2Zzo wo Att | -xa & —- Oo <= »~ *= sheet s8 > ae | 
“nad Ze—O Oce wren Ne We w §eOGwW ss —e— = &—& CO MA ss Ms qwoe 
ce Zen az©!» & MM ‘ce SE AEw~S BZCSsstlt HH —ZOOHHAHOCHAHOAOA au 
4rnn ‘oo Qu wT wwinns De | <wwyYy w a wi towowd i oovow ba 
a-O0 + *-@ + + ZMKE + Os $e Py Lt = “wOMitriMmittit /O 
PARCQD<E Om wt OW SY EM - MTT TD ZS“ WIV UO OL MOKHWM— CQOOCKHHHOHHAHAOASK — 
MO ZOA~w~RB VR BE Ye UZ IMaee2wZZaw~wr Bes UIT TS BBN IN Be — DOO fh. DOOO2Z 22 
—+ @ ad 2 = 
@ 3Naw ™ WM) Lal sat rs aw => ~o& wns 
+ <yg@OOwnNnutossy Oust JtoIIjdovtj gn g34d gt tjig030 wwe aan 
o3>>U>>>2>0 >> Soe Ss essoroDO soe oO Oe eS 22S Qnwa> 
wreooZO00O=-Da<a00 COZ IuDetCOZOZOCOOCO[2VOAaX.OOD7z<AET Zz UIOKCS =Z—-aoO 
@OFlf—-FEFOAQVFTE BFVOOAVOZ—“F-TEZVMAVNETETAQACVMVMEwY = ao<cse 
oA fr A A Ca 
N m ws mo ~ 
TOOK Ou cmoaw ~Owowoodusf-@OO- Of OMOC ee sh OU Mined <wmMonm ~oorw 
MMNNODOOOOrf-f-f- ODODE OOOS SE Ctl OOODOVVVV VA C0 OWWwuiwwa i O _— 
OOCCSCSOSOSCOSOSOO COSCOCCOCOCOOCOCOSCOOOSCSCOSCOSOoOSoOOOOoOOoOoCOoOSoooO , th seth seth sed 
SOOOCOCOCOCOCSCSOSOSOSS CSOSCCOCOCOCOCOCOCOOCOCOOOCCOSCOOSCOCOOOSCOOOOOoOoOoOOoOoOOo oooce 
OOOCCOOOCOOSOOSO OCOOCOOCOCOCOCOCOCOCOCOOOCCOCCSOOCOOOOOOOOOOoOoOO oooo 
M—- MWOW]OOV Oe DOD CO-—COD-COCOCWOCODOMVONWOe OO DOu —Orw 
H—MAOPOOMLEALONmMW POO Ou COOBCOWOYOMYUIO OSC Ou O- Oe Ow -oatm 
MUouh-OOckTOr-r Or RPV - DOOR-PR OOO PF WOCUR-R. oO OP Ter OCU vonrw 
See Sea eases rh aarti -ee MO 
Oo @ ooo 
oo - co o oo vw ~woeocdmw oo t=] wT 
ow Oo ws Oo uu ao Oud uw o So 
o N So 
o t<) So 
Oo N 
o Oo 
Oo o 
o Oo 
ro Oor°Too ao worucu Nu Oo OR RK—KRWNO- rh. reo oo KRO;O;OU Lento 
aon <aanm onwm omm Fd Ww <tOMnannodae Dao oOo soos <«own 
@ ooo 
wr —-o w wT - wv wv =) t) w 
uw Ow o w Oo Oo oa we we we 


i=] 
o 
o 
oO 
o 
oe 
o 
o 
Oo 
So 
oO 


; Routine Size: 


1346 


os 


50 04 C6 0011 
01 AO SF o118 
68 gt F 11¢ 
56 9 3 gti 
66 04 «87 6 122 
63 00000000' gf 90 00127 

08 AE 6 DO 001 

D8 A? YF 001 

04 AE 9F 001 
00000000G 00 “ o§ Pe $01 ; 
2 a ee ine 
50 04 00 0014 
04 00148 
50 EO A? DO 00149 
02 AO E8 A? 90 00140 
04 Ad 6 BP 00152 
C8 AZ? 67 08 28 00156 
50 pc =A? 00 00158 
51 04 AZ? 04 =A § 0015F 
52 6 C 00165 
51 52 CO 00168 
60 51 A2 00168 
04 AO 04 a | 9E 0016E 
D4 «=A? A? 00 00174 
FS OA? 8F 88 00179 
50 01 DO OO17E 
04 00181 

386 bytes, Routine Base: DBGSCODE + 0525 


1468 


1 


oOo @ 
now 


10$: 


AX-11 Ot issase V4.0-742 
DEBUG. SRC JDBGNPNP.B32;1 


RO) 
, bagscer_ TEMPMEM 

LEX|S TRING. DESC, @LEX_STRING_DESC+4, 
A 


AB, (POINTER) 
Suna NUMBER _DESC+4 


ve ESC 
4 m DROSNSAVE, DECIMAL_INTEGER 
#4. RO 


G_DESC+4, R1 


R 
0 
DESC, LAST_TOKEN_DESC 
N 
» R2 


0) 
gr ex STRING DESC+4(R21, 4(RO) 
TOKEN, LAST TOKEN 

#128, abGRERTATIONS 

#1, RO 
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(12) 


2 — — } 


30:98 Yroue Ol igenze NP O3904 Page 42 


D 4 
DBGNPNP 16-Sep-1984 
vOe~000 14 Sep } UG.SRC JDBGNPNP .B (13) | 


> 1348 1469 1 ROUTINE NUMERIC_PATHNAME = 
3 1349 1470 1 

3 1 29 1471 1 !e4 

3 ! 2] ane : FUNCTIONAL DESCRIPTION: 

3: 1 2g 1474 1! Parse the entire pathname when a numeric pathname item is encountered at | 
3; 1354 1475 1! the start of a pathname. 
3: 1399 1678 1! 

3; 1356 1477 1! 

3; 1357 178 1 ! FORMAL PARAMETERS: | 
: 1358 1479 1! 

3; 1359 ion 1! NONE 

3; 1360 1481 1! 
3: 1361 186 1 ! IMPLICIT INPUTS: 
3 1206 1483 1! : 

3; 136 1484 1! MODULE level OWN'ed variables. 

3 1364 1485 1! 

3 1eg2 1486 1 ! IMPLICIT OUTPUTS: | 
3: 1366 1487 1! 
3: 1367 1488 1! NONE | 
3: 1368 1489 1! 
3 1397 1490 1 ! ROUTINE VALUE: 
3; 1370 1491 1! 

3: 1371 1038 a An unsigned integer longword completion code 

; 1376 1493 1! 

3; 137 1494 1 ! COMPLETION CODES: | 
3 1374 1495 1! 
3 1322 1208 ' STS$K_SUCCESS - Success. Valid numeric pathname parsed. | 
3 1377 1498 1! STSSK_SEVERE - Failure. Invalid pathname found. | 
3; 1378 1499 1! 
3; 1379 1500 1 ! SIDE EFFECTS: 
: 1380 1501 1! ; 
3 133) 1288 1 The entire pathname descriptor for a valid numeric pathname is constructed. 
3 1388 1504 1 !<- 

3 1384 1505 BEGIN 

3; 1385 1506 
3: 1386 1507 add_numeric_scope; 

3; 1387 1508 advance; 

3; 1388 1509 § get_token; 

3: 1389 1510 
3 1390 1511 2 

3 133) 1216 ! Looking for backslash 

3 1 3 151 ‘ 

3 1332 1213 IF .token NEQ dbg$k_tok_bs THEN RETURN sts$k_severe; 

1396 1319 ye 

3 et_token; 

: 1399 1518 ° 

3; 1398 1519 : ? 

3 F444 1330 The data item or ‘Zline’, ‘Xlabel® must immediately follow the numeric scope 

3 1401 15 § CASE .token FROM dbg$k_tok_lowest TO dbg$k_tok_highest 

3 1eR6 15 OF 

3: 140 1524 SET 

3 1404 1525 


4 | 
DBGNPNP 16- Sep-1984 01: AX-11 Bliss-32 V4.0-74 P 43. 
v04-000 nSeh-1986 12:17:18 — EDEaUG. SRCSDBGNPNP B32: 79°13), 
: 1405 1 Cdbg$k_tok line] : ' Zline 7 | 
: 1208 : OTF F~NOT™ Line. item () THEN RETURN sts$k_severe; | 
: 1408 1 Cdbosk. tok_label] : ! "SLABEL’ | 
: st : , IF-NOT™ Label_ item () THEN RETURN sts$k severe; | 
: 1411 1 Cdbg$k_tok_id] : ! Data refere 
; alg 12 § orK- NOT” id_ item () THEN RETURN StsSk_ severe; | 
$1414 1535 CaboSk_ tok_int] : ! Possible Line or Label number 
: ra 13 $ IF-NOT™ integer_ item () THEN RETURN sts$k_severe; 
3 127 13 3 seta 5 ig hag 2 : ! Error 
; 1419 1840 Stsok_severe; | 
> 1420 1541 TES; 
+ 1421 1348 | 
: 1? ¢ 1367 augmentations Cterminal_state] = true; 
; 1250 1545 RETURN sts$k_success; 
: 1425 1546 
3 1426 1547 1 END; ! End of NUMERIC_PATHNAME | 
| 
.PSECT DBGSPLIT.NOWRT, SHR, PIC,0 | 
0D 00002 P.AAC: .BYTE 13 ea 
} 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O | 
OOFC 00000 NUMERIC_PATHNAME : 
.WORD Save R2,R3,R4,R5, RS. R7 : 1469. 
57 00000000° EF 96 90002 MOV LEX_STRING. DESC, R : | 
10 ¢2 00009 SUBL2 #16, : 
E4 87 00000000" EF 4 0000C MOVAB NULL STRING, @NAME_VECT ; 1505 | 
0 £0 A? p 0014 MOV PATHRAME_DESC, RO ~ : 
60 96 00018 INC (RO) : | 
01 AO 60 90 OOO1A MOVB {R0) , sade? ; | 
EB AZ 01 p Oot MOVL NDEX ; 
F4 «OA? 10 00 BisBe ate MAUSRENT ATI ONS ; 
04 AE 7 01 Al 00 6 ADDW rat t* STRING DESC, NUMBER_DESC : | 
0 04 AE 3¢ 8 MOVZWL » RO : 
50 04 C6 0002F IVL2 : | 
01 AO 9F 00 : PUSHAB 1(RO) ; 
000000006 90 gi F 0 CALLS #1, DBGSGET _TEMPMEM ; | 
6 : p c MOVL RO. : | 
66 0 8B 6 003F MOVC3 tek STRING. DESC, @LEX_STRING_DESC+4, | 
63 00000000" FF 90 00044 MOVE P.AAC, (POINTER) ; | 
08 i 0 00048 MOVL _- NUM_BUF, NUMBER_DESC+4 : 
8 F O004F PUSHAB DUNAY ; 
BS Ee | Rad Be : 
000000006 00 Me FB 00 CALLS #3, fe : 


03 
5 
02 i 
4 A 
51 
” 
61 
046 Al 
D4 =A? 
FC OB 
06 
09 
FB OAT 
04 
7 
1 
06 A? 
5 
5 
61 
046 Al 
D4 =A? 
FC 3B? 
06 
09 
FB A? 
0033 
OOS 
0033 
0000v CF 
0000v CF 
0000v CF 


F8 


oo 

~N 
WW? OOS OF OOP SP LUNvVi ye PONPOOCOP,F 
WAIN 2 & NONI SI NINI ON SS NOUNS EO 


ooo 
ooo 


oooo-o-— 
MOOOwWo?O 


oo -@ $9 "DOS OPOWO ON -9C 9 DT -9O “DOC OPOWO OVC OOVm 


ROD $$ DD MOMMVON WOON OD $f - DD MOMMOMWOWOOO—o@ 


SOOQOOCOCOOOOOOOOOOCOCOOCOCOOCOOOOOOOCOOOOOOOOOOOOOOoOO 


Soooooooooooooooo 
—OOOCOOOooooo 
omwnNMMMmMmmMmo 


NSFVHNIMO ONT 


0-9 -w— 


8 et Fe TF ed 


OOOO COOCOOOOOOOOoOoOooO 
SNA AAOWN 
SASSSSVESSINMSA oe 


COOCCCOCOOCOOOOOOOoOoOO 


AG 


be a 


SBSENSS 


som 
te 
aww 
Le oe 
v0vo 
ee 


— 
ee 
ee 


ew 
AGM 
oo 


ao OM 
rr 


BRB 
cALLS 


BRB 
CALLS 
BRB 
CALLS 
BRB 


AX=11 BLiss-32 v4.0 
DEBUG. SRCIDBGNPNP B32: 


EX_STRING_DESC, LAST_TOKEN_DESC 
Inbutp DESC, R 
R1)> LEX STRING_DESC+4, RO 
LEX -S{RING_ “DESC, R2 


tet) 

no, STRING. DESC+4CR2I, 4(R1) 
TOKEN, 

TOKEN 
#°M<RI 

#3, SrOKEN_ SCANNER_ADDR 
TOKEN, 

EX_STRING_DESC, “9 


#1, TOKEN 
TOKEN, #4 


#8, LEX KeSTRING. DESC, LAST_TOKEN_DESC 
Rs ai STRING DESC+4, RO 
yy a -S{RING- DESC, R2 


(R1) 
Sex. STRING -DESC*4CR2I, 4(R1) 
TOKEN, LAST-TOKEN 

TOKEN 

#OM<RI 

#3. raTOREN SCANNER_ADDR 


$ 
EX_STRING_DESC, #9 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Be Se Se Be Be Be Be Se Be Se Be Fe Be Se Se Se Se Se Se Se See Fe Se Fe Se Se Se Se Se Se Be Se 
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1507 
1508. 

| 

; 
; 
: 1514, 
| 

1516 | 

| 

1522 | 

| 

| 

1539 


1527 
1530 
1533. 


3; Routine Size: 


; 1427 


311 bytes, 


1548 


1 


0000v Y 
4 

0 

FG OA? 
50 


Routine Base: 


1986 P2iiFi%8 


ibs 
; 


1 
1 
1¢A 
1 
1 


iY 


DBGSCODE + 06A7 


Sep- 
abep- 


4 


AX-11 Bliss-32 V4.0-7 
DEBUG. SRC JDBGNPNP. B32; 


CALLS ag. {NTEGER_ ITER 
BLBS) =s «RO, ~118 

neve #4, RO 

BISB2 #128, AUGMENTATIONS 
ae 


4 
-1984 01:50:44 AX-11 
et 03:20:45 DEBUG. 


ROUTINE LINE_ITEM = 
' 


‘ee 
: FUNCTIONAL DESCRIPTION: 


wr 


Accepts a ‘ZLINE’ Line_number construct. 


WO CONOUS WOO 


Accept the Line number 

IF .token NEQ dbg$k_tok_int THEN RETURN sts$k_severe; 
If NOT integer_item () THEN RETURN sts$k_severe; 
RETURN sts$k_success; 


: 14 1549 1 

: 14 1 1 

i 1 | 

> 14 1 1 

BB HBT 

: 14 | FORMAL PARAMETERS: 

ee ii 

: 1440 1960 1 | IMPLICIT INPUTS: 

i: 1449 136g 1 i MODULE Level OWN'ed variables. 

> 1666 1564 1! IMPLICIT OUTPUTS: 

> 1445 1565 1: 

a ey) ee 

; 1448 1368 i ROUTINE VALUE: 

; 1450 1390 An unsigned integer longword completion code 

: 145¢ 1378 ! COMPLETION CODES: 

; 1454 137% 1 STS$K_SUCCESS - Success. Line item parsed. 

: 1456 1376 STS$K_SEVERE - Failure. Invalid Line item. 

; 1458 1378 i SIDE EFFECTS: 

: 1460 1580 1! The ‘ZLINE* reference is added to the pathname descriptor 
> 1461 1581 1! 

: re «| 1286 1 !=-= 

ao Scat poe 

: 1602 1382 : Check to see if we have already encountered ‘ZLINE’ or ‘ZLABEL' 
: 146? 1387 IF .augmentations [line_pending) - -augmentations Clabel_pending] 
; Hs 3 138) -augmentations Cline_found]) OR .augmentations Clabel_ found] 
5 1671 1394 THEN 

3 1678 1338 RETURN sts$k_severe; 

> 1674 1594 augmentations (line_pending] = true; 
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3; Routine Size: 114 bytes, Routine Base: 


3: 1488 1608 1 
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6D 
of 3$: 


4 01:50:44 AX-11 Ol igease V4.0-74 


4 12:17:18 DEBUG. SR 


DBGNPNP .B32; 


Save R2,R3,R4,R5,R6 
AUGMENTATIONS, R 
AUGMENTATIONS, 2 


# 
#1, AUGMENTATIONS 
#8, LEX STRING DESC, LAST_TOKEN_DESC 
4(R1)> LEX. STRING DESC+4, RO 

; X_STRING_DESC, R2 


TOKER, LAST 
LEX_STRING_DESC 

#3, @TOKEN_SCANNER_ADDR 
TOKEN, #6 


RO, (R1) 
@LEX STRING_DESC+4(R2), 4(R1) 
“TOKEN 


EX_STRING_DESC, #9 


#1, TOKEN 
TOKEN, #6 


#0, an eat 
RO, 3$ 
#4, RO 
#1, RO 
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ROUTINE LABEL_ITEM = 
‘ee 


i FUNCTIONAL DESCRIPTION: 
Parses a ‘ZLABEL' item. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
The augmentation vector. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSSK_SUCCESS - Success. Label item parsed. 
STSSK_SEVERE - Failure. Invalid label item. 
SIDE EFFECTS: 
The label reference is added to the pathname descriptor. 


wooo 
wn 


LAA AAAI AIA AI AOR OPUPROPONPUPUIUNY 


DOONAN E WIN SO OD NAME WIN 9 ODA EWN OO OOVNOAUES WIN —“OOONOu 


BEGIN 
: See if "ZLINE* or ‘ZLABEL* has already been found 
if .augmentations Cline_pending] OR .augmentations Clabel_pending) 


PUPV VLU LULU LV LULV LV SLULUSVLUSUSUSIUIVSUIVSVSUSVUSVSVSVSVSUSUSUSUSUSVSVSVS USSU S~ £~ £~ £~ S~ S~ E~ SS 
SOOO OOOO OOO OS SSS SSF SS SS SS SSS Se Soe ee eeces 
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: -augmentations Cline_found] OR .augmentations Clabel_ found) 
5 THEN 

2 RETURN sts$k_severe; 

5 augmentations Clabel_pending) = true; 

5 advance; 

: get_token; 

5 

5 


o 


Accept the Label number 

IF .token NEQ dbg$k_tok_int THEN RETURN sts$k_severe; 
IF NOT integer_item () THEN RETURN sts$k_ severe; 
RETURN sts$k_success; 
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4 
8 EDEBUG. SRCIDBGNPNP.B32; 

; 19467 1 | 

; 1548 ie? END; ! End of LABEL_ITEM 


007C 00000 crane cain 


3; Routine Size: 114 bytes, Routine Base: DBGSCODE + 0850 


} 
j 
WO Save R2,R3,R4,R5,R6 : 1609 | 
$6 00000000" EF 9 99 MOVAB AUGMENTATIONS, Ré : 
E E BLBS § AUGMENTATIONS, 2 + 1647 
A 66 : 9 ‘ BBS , AUGMENTATIONS, 2$ : 
$ 66 BBS * AUGMENTATIONS, 2$ + 1649 
66 3 14 BBS » AUGMENTA . 2s ; | 
65 4 18 8158 ai . AUGHENTA T ; 1654) 
D4 A 0c Ab 8 1B MOVC LEX. x STRING. DESC, LAST_TOKEN_DESC F 
51 8 Ab 09 1 MOVL Inbut DE _DESC, R ; 
50 10 A 4 Al ¢ 5 SUBL3. 4(R1) tex’ "STRING _DESC+4, RO F | 
3 Cc (A 028 MOVZWL LEX_S str RING-DESC, R2 ; 
; CO 0002F ADDL 2 * 3 
61 A2 00: é R aR re ; | 
04 Al 10 B64 3 MOVAB @Léx STRING. DESC+4CR2I, 4(R1) : 
£0 Ab 04 Ab p VL —sCTOKER, “TOKEN : | 
4 Ab SF 0004 PUSHAB TOK + 1655 
C Ab OF 4 PUSHAB L Se TRING. DESC : 
31 DD 00 46 PUSHL ; 
08 86 3 FB 0004 CALLS #3, @TOKEN_SCANNER_ADDR 3 
06 04 Ab D1 0004 CMPL TOKEN, #6 ; | 
0A 12 0005 BNEQ : 
09 0c A6 BI 905 CMP LEX. STRING_DESC, #9 ; 
04 if 00 BLEQU : 
06 Ab 01 D 9005 VL #1, TOKEN : 
06 04 A6 01 0005C 18 CMPL TOKEN, #6 + 1661 
12 000 BNEG 2 : | 
0000v CF FB 006 CALLS #0, JNTEGER_ITEM + 1663 
4 0 £8 0006 BLES” «RO, 3S : | 
0 04 DO 0006A 28: MOVL #4. RO F 
50 01 86 ited 3$ ROVE RO : seen 
Be hai T : wer 


3 1549 1668 1 
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ROUTINE QNAME_ITEM = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
Parses an QNAME item. 

FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


SS. 


CoCo SII SN 


FEROSSES RCS 


The augmentation vector. | 
} 
IMPLICIT 9UTPUTS: | 
| 
| 
} 
| 
| 
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PAEAAAAAAAAAAO 
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NONE 
ROUTINE VALUE: 


SEL 


character : BYTE, 
terminal : BYTE; 


ef 

68 

44 

al 

% + An unsigned integer longword completion code 

a 4 COMPLETION CODES: 

A} 4 STSSK_SUCCESS = Success. Valid QNAME item parsed. 
4 38 STSSK_SEVERE - Failure. Invalid QNAME item found. 
80 98 SIDE EFFECTS: 

8. ot An ID item is added to the pathname descriptor. 

84 BS hs 

85 0 BEGIN 

56 04 LOCAL 

14 05 

89 7 

90 
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8 BIND ROUTINE Lexical_scanner = .token_scanner_addr; 
91 09 BIND 
9 10 lexeme_length = fon otr'ing_deoch dectu. longthd : WORD, 
9 11 lexeme_pointer = lex_string_desc(dsc$a_pointer]: LONG; 


Mm 4 
16-Sep-1984 01:50:44 AX-11 Bliss-32 V4.0-74 
132808- 1382 ar DEBUG. SRC]DBGNPNP.B32; 
: First advance over ‘ZNAME' and any following blanks 


advance; 
IF .input_desc(dsc$w_length] GTRU 0 
THEN 


. 


oO 
w 


BEGIN 
character = ch$rchar(.input Gogcldecte_ pointers): 
pues -character EQL ' ' AND .input_descldsc$w_length] GTRU 0 


BEGIN 

input_desc(dsc$w_length] = .input_des CdseSy_ length) - 1; 
input_desc escSe_pointer) = ch epust nput des¢t sc$a_pointer),1); 
character = ch$rchar(.input_descldsc$a_pointerJ) 


SES eSPoRSSsEss 


END; 
IF .input_desc(dsc$w_length] LEQU 0 THEN RETURN sts$k_severe; 


IF .character EQL ‘(* OR .character EQL ‘'’* OR .character EQL dbg$k_quote 
THEN ! Name is enclosed in delimiters 


BEGIN 

IF .input_descCdsc$w_length] LEQU 2 THEN RETURN sts$k_severe; 
terminal = (IF .character EQL ‘(" THEN *)* ELSE .character); 
lLexeme_length = 0; 

lexeme_pointer = ch$plus(. input_descl(dsc$a_pointerJ,1); 
character = ch$rchar(ch$plus(.léxeme_pointer,.lexeme_length)); 
Ae (.character NEQ .terminal) 
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BEGIN 

IF .character EQL dbg$k_car_return THEN RETURN stsS$k_severe; 
lexeme_length = .lexeme length + 1; 

iF, eiene_ length + 1 GEQU .input_descCdsc$w_length] 


RETURN sts$k_severe; 
sSovecter = ch$rchar(ch$plus(. lexeme_pointer,.lexeme_length)); 


rMrorrr 
SRLS ESE 


END 
ELSE 
BEGIN 
lexical_scanner(.input_desc,lex_string desc,token); 
IF token NEd dbg$k_tok_id AND vtoken NEQ dbg$k_tok_int 


RETURN gteth severe: 
terminal = 0; 
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: 


token = dbg$k_tok_id; 
add_id; 
advance; 
IF .terminal NEQ 0 
THEN 
BEGIN 
input_desc(dsc$w_length]. = .input_descldsc$w_length] - 1 


sreut..Sase dsc$a_pointer] = ch$plus(.input_desc dsc$a_pointer],1); 
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get_token; 

Check for invocation number 

ee ee EQL dbg$k_tok_int 
BEGIN ! See if an invocation number has already been found. 


IF .augmentations Cinvocation_found] THEN RETURN sts$k_severe; 
add_invocation_number; 
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660 
661 advance; 
66 END; 
66 
664 RETURN sts$k_success; 
666 1 END; ! End of QNAME_ITEM 
.PSECT DBGSPLIT.NOWRT, SHR, PIC.0 | 
OD 00003 P.AAD: .BYTE 13 : 
LEXEME_LENGTH= LEX_STRING_DESC 
LEXEME ~POINTER= LEX~STRING DESC +4 | 
.PSECT DBGSCODE,NOWRT, SHR, PICO | 
O3FC 00000 QNAME_ITEM: 
«WORD Save R2,R3,R4,R5,R6,R7,RB,RP > 1669 
59 000000006 00 9€ 0000 MOVAB DBGSGET. TEMPMEM, R9 : 
58 00000000° FF 9— 000 MOV LEX_STRING_DESC, R8 : 
3E 0 001 SUBL 6° SP : 
C8 OA : 08 4 MOVCS #8, LEX_STRING_DESC, LAST_TOKEN_DESC > 1711 | 
1 pe OA p 1 MOVL INBUT _DE . RI : 
5 046 «AI : 1 MOV (R1)7 : 
50 06 A 6 g 0 SUBL3 (R2), LEX STRING_DESC#4, RO : 
5 6 MOVZWL LEX_STRING_DESC,~R ; | 
50 2 c DDL2  -R3,~RO : 
61 A B SUB RO, (R1) F 
e 04 8843 9 MOV @LEX STRING_DESC+4(R3), (R2) F 
D4 OA FB ABO MOVL TOKEN, LAST~TOKEN ; 
61 8 TSTw (RI) > 1716 | 
A BEQL © -2$ ; 
53 00 g 4 C 1% MOVB a0(R2) CHARACTER : 1719 | 
20 1 46 a] CHARACTER, #8 : 1720 | 
0A 12 0004 BNEQ $ : | 
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DBGNPNP 1b-se -1984 01:50:44 AX-11 Bliss-32 V4.0-742 Page 54. 
v04=000 12-80 8=138e PE oer DEBUG. SRC IDBGNPNP.B32:1 . (18) | 
F 19 Q00E BLSS 12$ ; 
00028200 BF DD pee PUSHL baa352 : 
000000006 00 } FB sore CALLS “, LIBSSIGNAL : 
E4 B842 6 DO OOOF4 12$: MOVL § NAME_STRING, @NAME_VECTCR2] : | 
eB OA D6 00F9 INCL NAME INDEX : | 
50 EO AB p OOFC 13$:  MOVL = PATHNAME_DESC, RO : 
60 6 9199 INCB (RO) : 
01 AO 60 90 0010 MOVB. (RO), 1(RO) : 
(8 «AB 68 08 28 00106 MOVC3 #8, LEX_STRING_DESC, LAST_TOKEN_DESC ; 1759! 
50 pc AB 09 0108 OVL INPUT DESC. RO : 
51 04 As 04 Ad 5 0105 SUBL3 4(RO)> LEX.STRING_DESC+4, R1 : 
5 $ € 00115 MOVZWL LEX_SfRING-DESC. R2 : 
51 2 CO 00118 ADDL 2 R2, RI : 
60 51 A2 oor SUBW2  R1. (RO) : 
04 AO 04 84g 9 O11E OVAB @LEX_STRING_DESC+4(R2], 4(RO) : 
D4 = AB FB AB OD 49 4 MOVL TOKEN, LAST_TOKEN 3 
57 95 90129 TSTB ~—s TERMINAL + 1761 
: 05 13 00128 BEQL 14$ : 
60 87 0012D DECW = (RO) + 1764 
04 AO D6 0012F INCL  4(RO) + 1765 
F8 AB OF 001 2 14$:  PUSHAB TOKEN + 1766 
0101 8F 688 001 PUSHR #*M<RO,R8> : 
FC BB 03 FB 00139 CALLS #3, @TOKEN_SCANNER_ADDR : 
06 FB ABOC#OdT 0013p CMPL TOKEN, #6 ; 
09 12 00141 BNEG 15$ : 
09 68 B1 00143 CMPW LEX_STRING_DESC, "9 : 
04 1B 00146 BLEQU 1 : 
FB OA 01 DO 00148 MOVL #1, TOKEN : 
06 F8 AB D1 0014C 15$:  CMPL TOKEN, #6 + 1772 
75 12 00150 BNEQ 18$ ; 
3¢ FAB 04 £0 0013¢ BBS #4, AUGMENTATIONS, 16$ : 1775 
Fo OB 10 88 0015 BISB2 #16, AUGMENTATIONS : 
04 AE 68 01 Al 00158 ADDW3 #1, LEX STRING DESC, NUMBER_DESC : 
50 04 AE 3C 00160 MOVZWL NUMBER_DESC, RO ; 
50 04 C6 00164 DIVL2 #4, RO : 
01 AO 9F 00167 PUSHAB 1(RO) : 
69 01 FB OO16A CALLS #1, DBGSGET_TEMPMEM ; 
56 50 00 0016D MOVL. RO. N F : 
66 04 B68 68 28 00170 MOVC3 LEX, STRING_DESC, @LEX_STRING_DESC+4, = ; 
63 00000000' gf 90 00175 MOVB P.AAD, (POINTER) 3 
08 AE 6 DO 0017¢ VL NUM_BUF, NUMBER_DESC+4 F 
D8 AB OOF 189 PUSHAB DUMMY : 
04 AE 99F 001 PUSHAB NUMBER ; 
0c AE 9F 00186 PUSHAB NUMBER DESC : | 
000000006 00 Q FB 00189 CALLS #3, DEGSNSAVE_DECIMAL_INTEGER ; 
04 0 €8 001 BLBS RO. 17$ ; 
50 04 DO 00193 16$: MOVL #4. RO ; 
04 0196 RET ; 
50 EO ag b0 197 17$: | MOVL = PATHNAME_DESC, RO ; 
02 AO eB A 198 MOVE NAME_INDEX, 2(RO) : 
04 AO 6 p 1A MOVL. N : F 
(8 «AB 68 1A4 MOVC3 #8, LEX STRING_DESC, LAST_TOKEN_DESC : 1776 | 
BC AB D O1A9 MOVL N y _DESC, ; 
51 04 A 4 OA ¢ 1A SUBL3 4(RO)* LEXSTRING ESC#4, R1 ; | 
5 68 3C 001B MOVZWL LEX_SfRING-DESC, R : | 


=32 V4.0-74 
SBeMPNB 9304 


C+4CR2], 4(RO) 


1 BLi 
DEBUG. SRC 
NG_DES 
ST~TOK 


B 
s 
E 
0 


—~™m at a 
o- agdr>r>>r- 
a xooow 
ws <«q“Ezeao 
oooo 
oon 
cm 
se 
aa os 
wee ed 
mm eo 
‘ee - 
ao vy 

om OCvrr< 

@MMDDvvw 

coor 

Coooo°oco 

Ooooo0oo wv 

vw 

Oomuwoo wT a 

v=eioano oO 

+ 

NNO 

Wns lO w 

co a 
@ oO 
=) 
woo 4d 
ou oOo 
@ 
a 


av 
“ 
© 
@ 
YL 
c 
= 
we 
> 
°o 
a 


459 bytes, 


; Routine Size: 


5 
16-5 1984 01:50:44 AX-11 Bliss-32 V4.0-742 Page 56 
14 Sep-19 4 9798 DEBUG. SRC IDBGNPNP.B32; 1 ’ (19) | 


3; 1669 1784 1 ROUTINE ID_ITEM = 

: 1670 1785 «1 | 
3; 1671 17 § 1 te¢ 
3 1or¢ 17 1 ! FUNCTIONAL DESCRIPTION: 

: 167 1788 1! 

3 1674 1789 1! Parses an ID item. 

; 1675 1790 1! 

: 1676 1791 1 =! FORMAL PARAMETERS: | 
; 1677 1736 1! 
3; 1678 1795 1! NONE 
3; 1679 17946 1! 

3; 16 1795 1°! IMPLICIT INPUTS: 

3; 1681 179% 1! 

; 16 ¢ 1797 1! The augmentation vector. 

3: 1684 1799 1°! IMPLICIT OUTPUTS: 

3; 1685 1800 1! 

3 1686 1801 1! NONE 

3; 1687 1308 1! 

3; 1688 1803 1 ! ROUTINE VALUE: 

3; 1689 1806 1! 

3; 1690 1805 1! An unsigned integer longword completion code 
3: 1691 1806 1! 

3 1696 1807 1 ! COMPLETION CODES: 

3; 169 1808 1! 
3 1998 1 : } STS$K_SUCCESS - Success. Valid ID item parsed. | 
: 1696 1811 1! STS$K_SEVERE - Failure. Invalid ID item found. 
3: 1697 a 1! | 
3 1698 1815 1 ! SIDE EFFECTS: 
3 1699 1814 1! 
: 1700 1815 1! The ID item is added to the pathname descriptor. 
: 1701 1816 1! 
3 A 1817 1 !<- 
: 170 1818 BEGIN 

3 1704 1819 
3; 1705 1820 add_id; 
3: 1706 1821 advance; 
3: 1707 18s¢ get_token; 

1 1B 

3 iei9 13 5 : Check for invocation number 

; ar 18 : IF _ .token EQL dbg$k_tok_int 

3; 171 1828 THEN 

3 17146 1829 BEGIN ! See if an invocation number has already been found. 

3; 1715 1830 IF .augmentations Linvocation_found] THEN RETURN sts$k_severe; 

: vie 133) add_invocation_number; 

3; 171 18 § advance; 

ths 1834 oe 

3 1720 1835 RETURN sts$k_success; 

: 1721 1 $$ 

3; 1722 1837 END; ! End of ID_ITEM 
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LPSECT DBGSPLIT.NOWRT, SHR, PIC,0 
0D 00004 P.AAE: .BYTE 13 P 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


O1FC 00000 ID_ITEM:.WORD @ R2,R3,R4,R5,R6,R7_RB : 1784 
: 990000006 00 9 0000 MOVAB bBescey *“TEMPMEM, R : | 
0000000 FF H 00 HOVAB X_STRING_DESC, R : 
“ 9 SE Sools Od : 1818. 
6 € 0001 MOVZWL LEX. STRING_DESC, RO + 1818 
50 4 g6 0016 DIVL2. #4, RO : | 
01 AO 9F 0001 PUSHAB 1(RO) : 
68 gi F b001¢ CALLS #1, DBGS$GET_TEMPMEM : 
6 9 p OO1F MOVL : : 
01 AG 04 87 6 00022 MOVC3 LEX STRING DESC, @LEX_STRING_DESC+4, - ; 
bh 67 90 00028 MOVB LEX _STRING_DESC, (NAME_STRING) : 
5 —8 aA? dO 00028 MOVL NAME_INDEX, R2 ; 
52 D1 000eF CMPL . ; 
F 19 00032 3 
00028200 8F DD 000 PUSHL #164352 ; 
000000006 00 1 Fe 003A CALLS #1, LIBSSIGNAL F 
8 11 0004 BRB 2$ : 
E4 B742 ° DO 00043 1$: MOVL § NAME_STRING, @NAME_VECTCR2] : 
E8 AZ 06 0004 INCL NAME INDEX 3 
50 EO AZ? DO 00048 2$: MOVL § PATHNAME_DESC, RO ; 
60 96 0004F INCB = (RO) : 
01 ag 60 90 00051 MOVS {R0) , 1(RO) : 
C8 OA? 6 08 2 0045 MOVC3 tex. STRING _DESC, LAST_TOKEN_DESC : 1820. 
51 pc OA 00 O5A MOVL InéutbE : 
50 04 A? 04 Al : 005€ SUBL3 tex “ote inG DESC+4, RO ; 
32 7 0064 MOVZWL LEX "Str iNe: DESC, R2 : 
5 CO 00067 ADDL2. Re, : 
61 A2 0006A SUBW2 RO, (R1) : 
06 «Al 04 B74 i 906 MOVAB Sex. STRING -DESC*4(R2I, 4(R1) : 
D4 =A? FB a? OD 0 VL TOKEN, LAST_TOKE 3 
F8 =A? «OF 0007 PUSHAB TOKEN + 1821. 
0082 BF BB 00078 PUSHR #*M<R1.R : | 
FC OB? 3 FB OO07F CALLS #3. aroKeN. SCANNER_ADDR ; 
06 FB A? «OD 00 83 CMPL ‘TOKEN, ; 
09 iF 008 BNEO : 
09 8 9 CMP GEX_STRING_DESC, "9 : 
4 : 00 C BLEQU F 
FB AT 1D MOVL #1, TOKEN : 
06 F8 AZ D1 00092 38: CMPL TOKEN, #6 : 1827 
7 ¥ 0 BNEQ 6 3 
3¢ FG OAT 04 t 9 BBS a AUGHENTAT IONS 4$ : 1830 
FAT 0 90 BISB a6, AUGMENTATION ; 
04 AE 7 01 Ail 000A1 ADDW LEX STRING DESC, NUMBER_DESC ; 
0 04 AE 3C 000A6 MOVZWL NUABER” C, RO ; 
0 04 g6 AA DIVL2 : 
01 AO 9F OOOA SH (RO) : 
B 1 FB B CALLS #1, DBGSGET_TEMPMEM ; 
7 0 oO 0008 VL —s«RO,:-NUM_BUF ; 


; Routine Size: 


c8 


66 


A7 
51 


273 bytes, 


04 


08 


000000006 


04 
D4 


Routine Base: 


87 


63 00000000' 
AE 


ge 
4 
0 


67 


i 


28 00086 
9 B 
C 
F C 
F C 
F cc 
i te 
3 
& ys 
3 D 
E 
8 0E6 
EA 
DO OOODEF 
§ OOF3 
f OOF9 
CO OOOFC 
Ae OOOFF 
9 3198 
D 8519 
DO 0010D 
04 00110 
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DEBUG. SRC JDBGNPNP B32; 


Ex STRING. DESC, @LEX_STRING_DESC+4, 
NUM_BUF ) 
AAE, (POINTER) 


NUM_BUF, NUMBER_DESC+4 
le i 


i vpn. _DECIMAL_INTEGER 


NAME INDERS StROD 


ae 
Inbut LEX grein DESC, LAST_TOKEN_DESC 


R 
JWay} PF tex "STRING DESC*4, R1 
ek X_STRING_ DESC, R2 

R 


, RO) 
@LEX STRING_DESC+4(R2), 4(RO) 
TOKER, LAST_ TOKEN 
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718 
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16-Sep-1986 01:50:44 —YAX-11 BL 

10-398-1 982 M78its — Ykeus. Be 
ROUTINE INTEGER_ITEM = 


i FUNCTIONAL DESCRIPTION: 
: Parses a dangling Line or Label number. 

: FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

: The augmentation vector. 

: IMPLICIT OUTPUTS: 

: NONE 

} ROUTINE VALUE: 

An unsigned integer longword completion code 

COMPLETION CODES: 

: STSS$K_SUCCESS - Success. LINE or LABEL number parsed. 
: STSS$K_SEVERE ~ Failure. Invalid integer item found. 
SIDE EFFECTS: 

: The Line or Label number is added to the pathname descriptor. 
le 


BEGIN 
Determine if looking for Line or label number 
SELECTONE true 
OF 
SET : 
C.augmentations Cline_pending]] : ' Line number 
BEGIN —" 
add_to_l_number; 
advance; 
get_token; 
: See if more Line number follows 
if .token EQL dbg$k_tok_dot 
THEN 
BEGIN 
add_to_|_number; 


advance; 
get_token; 


: 


SSSLEAPAR 


wn 


ct ES EY 


=PIPIPIPINININININININNANIININIWA EE BPP LEE 


Sss2z32 


200 
Ran = 


Pb te bd ss ss ts et 
uw 


SRLS 
~ 
ta 4 Wd 2d ss a ss ts 42 ss ss ss a 


ODODODOOOOOOOVNVONOO 
PRPONONY 3 2 


WN — SO OOnOufwn—o 


5 
tb-se 1984 01:50:44 AX-11 Bliss-32 V4.0-74 
1 7300-1382 933} 718 DEBUG. SRC IDBGNPNP.B32; 
IF .token NEQ dbg$k_tok_int THEN RETURN sts$k_severe; 
odd_te, | muster; 
add_line; 
advance; 
ELSE 
add_line; 
END; 
Caugmentations Clabel_pending]) : ! LABEL number 
EGIN 
add_to_|_number; 
add_labeT; 
advance; 


COTHERWISE) : 
RETURN sts$k_severe; 


TES; 
augmentations Cterminal_pending] = true; 
RETURN sts$k_success; 
END; ! End of INTEGER_ITEM 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


O05 P.AAF: .ASCII \SLINE \ 
eAAG: ASCII \SLINE \ 
11 P.AAH: .ASCII \ZLABEL \ 


20 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 INTEGER_ITEM: 

B 00 9€ AOVAD  BBEEGET REAPRER RTL tere eRTOLRTY 

sh titi Ff ce 008 HOVA NUMBER BUFFER, R10 

0 04 AA 5 1 BLBS AUGHENTATIONS, 1$ 

027F 31 0001 BRW 21$ 
04 AE 16 AA D 1A 18: MOVL _LEX_STRING_DESC+4, NUMBER DESC+4 
GF 10 AA B 1 MOVW = LEX STRING DESC. NUMBER_DESC 


E ° 2s: CMPW 
30 ER_DESC+4, #48 


INCL MURBER-DESC +4 
2 - 


31 


50 


01 A? 
01 A047 


50 


31 


01 


oc 


08 


04 


04 


01 


01 


ite 


7¢ 
His 
38 88 
00 91 
§ 95 
C 98 
C OF 
A OA 
9E OOOA 
DO OO0AB 
9F 0008 
9F 0008 
DD 000 


SSSSees 
@o 
Soo 


O7ON@—orv 
WOOD »~I09 Ooo 
SOSOSCOCOC OOOO COCO COCO OOOO OOOO OOOO O OO OCOOO 
Sooo OOO OOO OOO OOO OOOO 
SSSSSSSSSSosssssS SoS 
PIM 
DBOrImMn ORD Moo ere 


HS 
nie 
3 
i 
1 8 
; 
: 


MMM MMMMMMMoOCS 


DOWOMDONW—-M > 


SOOoooOoooooooooooooSo 
SLLOLLO SoS 


-Sep-1 
~Sep-1 


3$: 


4$: 


5$: 
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AX-11 Bliss-32 V4.0-7 
DEBUG. SRC JDBGNPNP. B30; 


ez =e 
aos 

o see 

Sav tm>m 


>. =z 


DBGSGET_TEMPMEM 
ER_GUFFER 

EMP), RO 

itr 


-~De-2arz- 
AOA FO 


BUFFER 
(TEMP) 1B} 


CTEMP 
n9. aNiMeER_ DESC+4, 1(RO)CR7I 


if Sw Paria 


, DBGSGET_TEMPMEM 
NUMBER Burren. he ree 
, @NOMBER EHEsC es, 1(R6) 


R 
> LEX STRING_DESC, LAST_TOKEN_DESC 


+ 
4(R1)> LEX.STRING_DESC+4, RO 
; x ~SfRING- DESC, R2 


R fa) 
aLEx STRING. DESC+4CR2J, 4(R1) 
OKER, LAST_TOKE 


TOK OKEN 
LEX. STRING_DESC 
+ + her SCANNER _ADDR 


LEX_STRING_DESC, #9 
6$ 


C+4, layne’ s DESC +4 
fe aS R_DESC 


SNUMBER_ DESC+4, #48 


NUMBER _DESC 
ER_-DESC+4 


BUFFER, TEMP 
(TEMP); RO 


1884 


1892 


- ven wv 


5 
IESEgHats QLsS0h HMESE SA aH Boud 2 roe $8 


DEBUG. SRC JDBGNPNP .B32; 


8 ¢ F ADDL2 RB, R : 
s E ty ae : 
01 Ad F 001 PUSHAB 1(RO) : 
68 FB 1 CALLS #1, DBGSGET_TEMPMEM : | 
A 0 p 1 MOVL NUMBER_BUFFER : 
9 66 9A 001 MOVZBL (TEMP), RO : 
A 0 11 MOVL R°BUFFER, R7 : 
01 A? 01 A 0 114 movCc3 RO ' (TEMP), 1(R7) : 
5 A OO11A mOVZBL (TEMP), R : 
01 A047 0% 8B ¢8 110 MOVC Rs. @NUMBER_DESC+4, 1(RO)CR7] : 
. 3D 41 o01S? a : | 
04 AA 4 a8 129 10$:  B1SB Wg AUGHENTATIONS : 
50 58 4 ‘ 12D DIVLS #4, RB, R ; 
01 AO SF 00131 PUSHAB : 
68 1 FB 001 CALLS #1, DBGSGET_TEMPMEM : 
A 0 00 00137 MOVL * NUMBER BUFFER : 
6 A 13A MOVL ER BUFFER, R6 : 
01 «AG 04 BE 8 1 MOVC3 8, @NOMBER_DESC+4, 1(R6) : 
66 14 MOVE. RB, (RO) : 
D8 AA 10 AA 08 2800146 11$: MOVC3 #8, LEX_STRING_DESC, LAST_TOKEN_DESC + 1893 
51 F AA D 146 MOVL. INPUT_DESC, : 
50 16 AA 6 Al : 15 SUBL3 4(R1)7 LEX_STRING DESC+4, RO 3 
5 10 AA 3cC 00156 MOVZWL LEX_STRING-DESC, R2 F 
5 3 co 015A ADDL g RO : 
61 A2 0015D SUBW2 RO, (R1) : 
046 Al 14 BA42 9E 00160 VAB  @LEX STRING_DESC+4(R2], 4(R1) ; 
E4 08 AA DO 00166 VL ‘TOKEN, LAST-TOKEN : 
08 AA OF 00168 PUSHAB TOKEN + 1894 
10 AA OF 0166 PUSHAB LEX_STRING_DESC ; 
51 DD 0017 PUSHL 1 ; 
OC BA 03 FB O173 CALLS #3, @TOKEN_SCANNER_ADDR : 
06 08 AA 01 0017 CMPL TOKEN, #6 ; 
OA if O78 BNEG = 1 : 
09 10 AA B61 0017D CMPW L X_STRING_DESC, #9 ; 
4 if 0181 BLEQU : 
08 AA 1 DO 001 3 MOVL #1, TOKEN ; 
06 08 AA D1 91 128: CMPL TOKEN, a6 : 1897 
03 13 001 BEQL 13$ ; 
0207 31 1 BRW 30$ : 
04 AE 14 AA DO 00190 13$:  MOVL LEX_STRING_DESC+4, NUMBER _DESC+4 F 
6E 10 AA BO 0019 MOVW §LEX“STRING-DESC, NUMBER_DESC F 
01 E Bi 199 14$:  CMPW NUMBER_DESC. wi : | 
30 06 Br oF OOT9E Fee AAOMBER_DESC#4, #68 : | 
85 13 1 BNEQ aN 29. : 
6— 87 001 DECW  NUMBER_DESC : 
04 AE 06 14g INCL § NUMBERTDESC+4 ; | 
EE 1A BRB 14$ ; 
58 3¢ 1AB 15$: = MOVZWL ER_DESC, R8 ; 
31 04 AA E1 OO1A BBC #5, AUGMENTATIONS, 16$ ; | 
: A po 1B ROvL ER_BUFFER, TEMP ; | 
6 A 001 MOVZBL (TEMP)? R9 : | 
9 C9 1 ADDL , RY : | 
50 9 4 ‘ 18 DIVLS #4. R9, RO ; 
01 AO 9F 001C PUSHAB ) : | 
6B 01 FB 001C CALLS #1, DBGSGET_TEMPMEM : | 
| 


oa ee i 


5 | 
18-52 =1984 01:50:44 AX-11 Bliss-32 V4.0-74 Pa 3 
yOe~000 1ensee=idee f3:toiis «— FoeadG. She Sssgwene O35, 9¢ 28) 
A 50 0 O01C MOV RO, NUMBER_BUFFER ; 
i a i bo 
01 a7 01 A 0 g 1CF vC3 RO, 1(TEMP), 1(R7) : | 
5 A 105 MOVZBL (TEMP), RO : 
01 A047 4 8B 1D vC3. RB, QNUMBER DESC+4, 1(RO)CR7I : | 
. 1D 41 OOlee Bro, e ee 
04 AA 38 8g iff 16$:  B1S8 ys AUGMENTATIONS F 
50 58 4 § 168 DIVLS #4, RB, R : 
01 AO SF OO1EC PUSHAB 1(RO) : 
68 1 FB OO1EF CALLS #1, DBGSGET_TEMPMEM : 
A 0 OD 1F MOVL RO, NUMBER_BUFFER 3 
4 A 1F MOVL_ NUMBER BUFFER, R6 ; 
01 6 04 BE 1F MOVC3 RB, @NOMBER_DESC+4, 1(R6) : 
66 1FE MOVB RB, (R6) : 
04 AA 0 01 17$:  BISB2 #2. AUGMENTATIONS > 1899 
04 AA 1 BA 00 03 BICB2 #1. AUGMENTATIONS : 
50 00 BA 9A 00209 MOVZBL QNUMBER_BUFFER, RO : 
20 6 CO 0020D ADDL2 #6, R : 
0 04 6 0 19 DIVE 4, RO F 
01 AO SF 0021 PUSHAB 1(RO) ; 
68 1 FB 00 18 CALLS #1, DBGSGET_TEMPMEM : 
0 00 00 1 MOVL. RO. LIN : 
01 a7 00000000" €F 06 28 00 1 MOVC3 #6, P.AAF, 1(LINE_ITEM) : 
6 6A 00 00 : MOVL NUMBER BUFFER, R6 : 
0 6 9A 00228 MOVZBL (R : 
07 (A? 01 Ab 0 28 00228 MOVC3 RO, 1(R6), 7(LINE_ITEM) : 
67 66 06 81 00231 ADDB3 as (R6), (LINE_ITEM) : 
O10E 31 99 5 BRW 27$ : 
04 AA 02 88 00238 18s: B1 $82 #2, AUGMENTATIONS + 1903 
04 AA 01 8A 0023C¢ BICB2 #1. AUGMENTATIONS F 
50 00 BA 9A 00240 MOVZBL QNUMBER_BUFFER, RO : 
50 6 CO 00244 ADDL #6, R : 
50 04 €6 00247 DIVL2 #4. RO : 
01 AO 9F 002A PUSHAB 1(RO) : 
68 . § 4D CALLS #1, DBGSGET_TEMPMEM F 
0 OD 9 MOVL RO, $ 
01 a7 00000000° EE 6 2 MOVC3 #6, P.AAG, 1(LINE_ITEM) F 
6 6A DO 9 c MOVL NUMBER BUFFER, R6 ; 
50 6 9A F MOVZBL (R6), R : 
07 A? 01 0 a 63 MOVC3 RO, 1(R6), 7(LINE_ITEM) ; 
67 6 6 81 ADDBS #6, (R6), (LINE_ITEM) : 
FS OAA D0 $ MOVL NAME INDEX, R2 : 
52 D CMPL Rg #50 : 
F 19 0027 BLSS —- 19 : 
00028200 8F DD 0027 PUSHL #164352 ; 
000000006 00 1 Fe CALLS a LIBSSIGNAL ; 
F4 BAG2 $ DO 19$:  MOVL  LINE_ITEM, @NAME_VECTCR2) : 
FB OAA D6 9 INCL NAME INDEX F 
50 FO OA p 20$:  MOVL = PATHRAME DESC, RO : 
01 0 g p ABV tro}. RO? : | 
018 3 BRW 1$ ° + 1877 
03 04 AA 0 69 21$ BBS a AUGMENTATIONS, 22$ > 1907 
00F6 31 0029E BRW § : 


~~ 


m5 
16-Sep-1 50:4 AX-11 Bligs-32 V4.0-74 Pa 
-Sep- 17s UG. NPNP,. 3 ) 
1ersee=i3Re 93:99:45 — HoNedS Bhi sseghene:b35 ae 28) 
04 =A 16 AA D Al 22$:  MOVL LEX_STRING_DESC+4, NUMBER_DESC +4 : 1908 
6 10 AA B A6 MOVW §LEX“STRING-DESC, NUMBER_DESC : 
: 8 AA 23S: CHP NUMBER DESC, # : 
30 04 BE 9 A PB ER_DESC+4, #48 F 
8 BNEQ 4 ; 
6— 8B 8 DECW § NUMBER_DESC : 
04 AE D6 a INCL  NUMBERDESC+4 : 
E } BA BRB 23$ : 
58 : ¢ BC 24$: MOVZWL NUMBER DESC, RB : 
31 04 AA E1 O02BF BBC #5, AUGMENTATIONS, 25$ : 
§ 6A b0 0 cs OVL  NUMBER_BUFFER, TEMP : 
: 38 00 OOSEA ADbLg art ald 
50 59 04 c? ° CD DIVL3 #4. RO, RO : 
01 AO 9F 00201 PUSHAB 1( : 
6B 1 FB 0204 CALLS #1, DBGSGET_TEMPMEM ; 
6A 0 p 0207 MOVL RO, NUMBER_BUFFER : 
30 66 9A OO2DA MOVZBL (TEMP), RO ; 
e 6A 00 00200 MOVL. NUMBER BUFFER, R7 : 
01 A? 01 Ab 50 : 02€0 MOVC3 RO, 1(TEMP), 1(R7) : 
50 66 A 00 ES mOVZBL (TEMP), R : 
01 A047 04 eg 38 O2E MOVCS RB, QNUMBER_DESC +4, 1(RO)CR7J F 
ie oo i : 
04 AA 20 88 O2F5 258 BISB2 «#32, AUGHENTATIONS : 
- as 01 8 SF $0 fe DUSHAB ‘ ‘wee , 
68 01 FB 0300 CALLS #1, DBGSGET_TEMPMEM : 
6A 50 00 00303 MOVL > ER_BUFFER : 
57 6A 20 0 06 MOVL. NUMBER BUFFER, R7 ; 
01 «A? 04 BE 28 2 0 09 mOvcs RS. GNOMBER DESC +4, 1(R7) ; 
04 AA 08 a3 0 i 26$ BISB2 #8. AUGMENTATIONS > 1909 
04 AA 4 8A 0031 BICB2 #4. AUGMENTATIONS ; 
30 00 BA 9A 0 1A MOV ZBL QNUMBER_BUFFER, RO F 
a ee : 
68 1 ¢ ° 7 CALLS #1, DBGSGET_TEMPMEM : 
5 Q p A MOVL RQ, LABEL _ITE : 
01 7 00000000" ef D MOVC3 #7. P.AAH; 1(LABEL_ITEM) ; 
6 6A VL. NUMBER BUFFER, R6 ; 
50 A MOVZBL (R6) : 
08 A? 01 Ab 8 ve RO, 1(R6), 8(LABEL_ITEM) : 
67 6 7 81 0034 ADDBS #7. (R6) (LABEL ITEM) F 
: VL NDEX, : 
F8 AA DO 00346 278 MO NAME_INDEX, R 
2 : 
00028200 DD 0034F PUSHL #164352 : 
000000006 00 1 FB i CALLS a, LIBSSIGNAL : 
F4 BAG2 8 D 288:  MOVL §LABEL_ITEM, @NAME_VECTCR2) : 
£8 AA D INCL NDEX : | 
50 FO OA é 29: mov PATHRAME DESC, RO ; | 
01 =a0 68 8 MOVB (RO), -1(RO) : 


N 5 
e 750:4 Ax-11 s-32 V4.0 Pa 5 
1e-SeR=}382 95:79:98 — ¥oeeUS Bhi ssechene:o35, 9 383 

2 0 MOvC3 #8 Lex STRING. DESC, LAST_TOKEN_DESC : 1910 

D MOVL.  INPUT_DESC, R : 

: A SUBL3 4 (RO)> LEX STRING abEsces. R1 : 

MOVZWL LEX_STRING-DESC, 3 

C ADDL Re, Ri : 

A 7 SUBW (RO) : 

9 A MOVAB SLéx STRING -DESC#4ER2I, 4(RO) : 

D MOVL TOKEN, LAST-TOKEN : 

1 9 BRB 31$ + 1877 
0 00397 30s MOVL #4, RO + 1915 
4 0039A RET : 

: 0 31$ BISB2 #64, AUGMENTATIONS + 1919 

p A MOVL #1, RO : 1921 
4 003A RET + 1923 


; Routine Size: 932 bytes, Routine Base: DBGSCODE + OBIE 


; 1810 1924 1 


B 
DBGNPNP 16S 
vOe~000 14-$ 
ROUTINE SHORT SCOPE = 


=1984 01:50:44  VAX=11 Bliss-32 V4.0-76 Page 66 
4 1986 93:39:48 SRC] ¢ 39 at) | 

lee | | 
| 


DEBUG. SRC JDBGNPNP B32; 


FUNCTIONAL DESCRIPTION: 
Parses global or numeric scopes. On failure, resets input to original state. 


—— 9 4 9 4 


1 

] 

! FORMAL PARAMETERS: 
: NONE | 
{ IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
; ROUTINE VALUE: 
; 
' 
1 
! 
i] 
! 
i] 
f 
! 
' 
1 
! 
' 
! 
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An unsigned integer longword completion code 
i COMPLETION CODES: 
STSS$K_SUCCESS - Success. Global or numeric scope accepted. | 


oe ery 


DONOULSWN OVO ONOULWN—"OVDONOu 


STSS$K_SEVERE - Failure. Input not a numeric or global scope 
i SIDE EFFECTS: 


If successful, produces a complete pathname descriptor for global 
or numeric scope. 


oo 
FEW 


BEGIN 


EELELSES 


w 


CAL 
LENGTH ' Ori 
POINTER; i Origi 


Save the original input 


nput length 
nput pointer 


AOOQAOCOOOOUMIUIVIVIVINIVIUIUIES SEES LLL LE 


Save (Length, pointer); 


109 09 Od Co C9 Co CO Cd Co CD: 
PAA 


Obtain the first token and check for integer or backslash 
get_token; 
cane ,taten FROM dbg$k_tok_lowest TO dbg$k_tok_highest 
SET | 
Cabos tok bs) : ! Global scope ? | 
advance; 
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6 | 
1-se =1984 01:50:44 AX-11 Bliss-32 V4.0-74 Page 67 
14-8ep 1982 aT RT DEBUG. SRC IDBGNPNP.B32; : (21). 


3 1870 1388 get_token; 

: 1871 1984 IF .token EQL dbg$k_tok_null OR .token EQL dbg$k_tok_inval 

: 187 1985 THEN — aii: 

3; 187 1258 4 BEGIN 

>: 1874 1987 4 

; 1875 4 +4 4 ! Yes, global scope. 

: 1876 1989 4 ! 

; 1877 1990 4 add_null_id; 
; 1878 1991 4 END 
3; 1879 1338 3 ELSE 

3 1930 1993 4 BEGIN 
> 1881 1994 4 

3 13e¢ 1995 4 ! No. Restore input. 

; 188 1238 4 ! 

3; 1884 1997 4 restore (.length, .pointer); 

>; 1885 1998 4 RETURN sts$k_severe; 

: 1886 1999 3 END; 

>; 1887 2000 2 END; 

>; 1888 2001 

: 1889 200 Cdbg$k_tok_int] : ! Numeric scope ? 

3; 1890 00 BEGIN 

3; 1891 004 advance; 

: 1396 005 3 get_token; 

3; 189 006 3 : 

3; 1894 007 3 IF .token EQL dbg$k_tok_inval OR .token EQL dodg$k_tok_null 

: 1895 008 3 THE 

3; 1896 2009 4 BEGIN 

; 1897 2010 4 
: 1898 2011 4 ! Yes, numeric scope 
3; 1899 sols 4 : 
3; 1900 013 4 restore (.length, .pointer); 

; 1901 2014 4 get_token; 
3; 1902 2015 4 add~numer ic_scope; 

3 1903 2016 4 advance; 
3 1904 2017 4 

: 1905 sais 3 ELSE | 
: 1906 019 4 BEGIN 
3; 1907 2020 4 

: 1908 $053 4 ! No, restore and fail 
3; 1909 Ose 4 ! 
3; 1910 2025 4 restore (.length, .pointer); 

3; 1911 024 4 RETURN sts$k_severe; 

3 ba 025 END; 

3; 191 0 $ END; 

3 1914 0 

3; 1915 028 CINRANGE, OUTRANGE) : 
; a 029 
3; 191 030 RETURN sts$k_severe; 

3; 1918 031 END; 
3 1919 O35 

: 1920 0 TES; 

; 136! 034 

3; 19 § 035 RETURN sts$k_success; 

3 136 839 

3 1924 037 END; ! End of short_scope 


dO 


Ag 
51 


04 


08 
oc 


04 
oC 


04 


07FC 00000 SHORT_SCO 


. = 
O° EF 
10 
E4 Ad 
60 
04 Ad 
59 
08 A9 
50 
03 
69 
09 
08 Ag 
03 
01 
69 
56 
016F 
0017 
016F 
0158 
08 
Fe Ag 
4 AO 
08 53 
OC B942 
28 
9 
08 A9 
5 
0 
6 
0 ¥ 
i 


9E 0000 
9E 0000 
C2 0001 
3 0001 
€ 0001 
DO QOOIA 
DD 4a 
9F 000 
DD 00023 
FB 00025 
Di 00029 
12 0002C 
Bi 000 5 
1B 000 
DO 00034 
DO 00037 
CF QO03A 
QO03E 
00046 
0004E 
31 00038 
28 0005 
00 Beggs 
i Hit 
Hiss 
i Bs 
3 Hi 
4 0079 
F 78 
DD 7 
4 00 
Hiss 
A a 
00 008F 


OD 00018 P.AAI: 


18: 
2$: 


3$: 


dD 6 
1eaSep-1986 $249: 


«PSECT 


»PSECT 


PE: 
WORD 


4 AX-11 Ot igen ze ih el od 
8 DEBUG. SRC JDBGNPNP .B32; 


4 
1 
DBGSPLIT,NOWRT, SHR, PIC,0 
13 


DBGSCODE,NOWRT, SHR, PICO 
Save R2,R3,R4,R5,R6,R7,R8B,RI,R1I0 
NULL_STRING, R10 

TOKEN, R9 

#16, §P 

INPUT_DESC, RO 

(RO), LENGTH 

4{RO5, POINTER 
pesmi 

#3, @TOKEN_SCANNER_ADDR 
TOKEN, #6 


 pehtenatie etic ago 


RING_DESC, LAST_TOKEN_DESC 
“STRING_DESC+4, R1 
“DESC, R2 


°c Me + KD Ue MHS I 
oc 


X_STRING DESC+4CR2J, 4(RO) 
CAST_TOREN 


* pyonmeyoes 
#3, @TOKEN_SCANNER_ADDR 
TOKEN, #6 


oor —rom-~2Z RST eT ees 


DDQVWWVWer Lf BO SS NO 


LEX STRING DESC, ago 
#1, TOKEN 


) 
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9 21) | 
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| 


| 
| 
| 


1925 


1968 


| 
| 
: 1975 | 
| 
| 
| 


1981 | 
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6 
Ib-5e =1984 01:50:44 AX-11 Bliss-32 V4.0-74 
1 =3071 382 03:39:48 DEBUG. SRC ]DBGNPNP B32: 
50 9 D 92 4$ MOVL TOKEN, RO 
5 0g 38 BEQL 46=sS$ 
01 pi 9 CMPL RO. #1 
u 1 9A BNEO 6 
cc —«B9 6A 3 H rt} MOVAB NULL_STRING, @NAME_VECT 
0 —E8 Ag p A MOVL § PATHNAME_DESC, RO 
69 AG INCB (RO) 
01 AO 9 0 Ab MOVB (RO), 1(RO) 
FO. OAD 1 p AA MOVL #1, NAME_ INDEX 
0100 31 OOAE BRW 14$ 
50 E46 Ad DO 0008 g$: MOVL INPUT DESC, RO 
00 1 083 $: BRW es 
pO. 08 Ad 8$: MOVC3 #8, LEX_STRING_DESC, LAST_TOKEN_DESC 
50 Fs A9 00 0008 MOVL INPUT DESC. 
51 oc Ag 4 AO ¢ 00C SUBL3 4(RO)7 LEX. STRING DESC+4, R1 
52 08 a9 3C 000C MOVZWL LEX_STRING_DESC. R2 
51 3¢ co 00CC ADDL 2 R2,~R1 
60 1 A2 OOOCF SUBW2 R1, (RO) 
04 AO 0C 8942 i 00D MOVAB @LEX_STRING DESC+4(R2], 4 (RO) 
DC AD 56 DO 0000 MOVL 6, CAST_TOREN 
59 DD 000DC PUSHL 
08 Ad SF OO0DE PUSHAB LEX_STRING_DESC 
50 DD O00E1 PUSHL 
04 ~B9 03 FB O00E3 CALLS #3, @TOKEN_SCANNER_ADDR 
06 69 01 000E7 CMPL TOKEN, #6 
09 12 OOOEA BNEQ 9 
09 08 Ad B1 OODEC CMPW LEX_STRING_DESC, "9 
03 1B 000FO BLEQU 9$ 
69 01 00 b00Fe MOVL #1, TOKEN 
50 E4 AQ dO 000F5S 9S: MOVL —§ INPUT_DESC, RO 
01 69 01 000F9 CMPL ‘TOKEN? #1 
04 13 OO0FC BEQL Ss] 
69 05 OOOFE TSTL TOKEN 
83 if 90100 BNE 46 7$ 
60 8 B 0 102 10$:  MOVW LENGTH, (RO) 
04 AO 57 00 0010 MOVL POINTER, 4(RO) 
59 DD 00109 PUSHL R 
08 Ad 9F 00108 PUSHAB LEX_STRING_DESC 
50 DD O10 PUSHL 
04 89 03 FB 0011 CALLS #3, @TOKEN_SCANNER_ADDR 
06 69 D1 00114 CMPL TOKEN, #6 
9 12 00117 BNE 
09 08 a9 B1 00119 CMPW = LEX_STRING_DESC, #9 
03 18 110 BLEQU 11$ 
69 1 D0 OO11F VL. #1, TOKEN 
EC B9 6A 3 122 11$:  MOVAB NULL_STRING, @NAME_VECT 
0 €8 A9 p 126 MOVL § PATHRAME_DESC, RO 
69 120A INCB = (RO) 
01 a0 60 90 001 MOVB (RO), 1(RO) 
FO AD 01 p 1 MOVL #1, NAME INDEX 
FC AQ 10 1 BISB2 #16, AUGMENTATIONS 
04 AE 08 a9 01 Ai 001 ADDWS #1, LEX STRING DESC, NUMBER_DESC 
0 04 AE 3c 001 MOVZWL NUMBER DESC, RO 
0 0 &6 14 DIVL2 0 
01 AO SF 0014 PUSHAB 1(RO) 
000000006 90 gi FB 14 CALLS #1, DBGSGET_TEMPMEM 
& 0 00 0014F MOVL RO. NUM_BUF 


; Routine Size: 


: 1925 


66 


D0 =—AD 

51 

437 bytes, 
2038 1 


oc 89 
63 

08 AE 
000000006 3, 
02 20 
8 & 
8 A 
50 

oc AY 
2 

1 

60 

04 Ad 
DC = AD 
60 

04 Ad 
50 

50 


Routine Base: 


08 a9 
18 AA 
5 
0 A 
b¢ AE 
C A 
i 
Es AY 
os 
fe 
A 
te 
0c at 
o3 
57 
04 
01 
DBGSCODE + 


Igoseo-1984 01:80: 


28 00152 
30 i 
F 1 

: i 

; 189 

. 173 

$9 9017 

E a 

Oe bogs 
§? is 

8 Bi 

A 197 

«| 019A 

DO 001A0 

11 OO1A4 

B80 sit 12$: 
»? O1A 

D dhe 13$: 
04 00180 

d0 ot 14$: 
04 00184 


mOvC3 


6 AX-11 Bliss-32 V4.0-74 
8 DEBUG. SRC JDBGNPNP B32; 
E 
N 


+ (POINTER) 
NUM BUF, NUMBER_DESC+4 


ESC 

NSAVE _DECIMAL_INTEGER 
E 
RO) 
R 


s 
Sino) 
NG_DESC, LAST_TOKEN_DESC 


RING _DESC+4, R1 


$ 
s 
Dd 
x 
( 
T 
mi 
G_DESC, R2 


0) 
I 
*$ 
D 
acéx STRING -DESC+4CR2I, 4(RO) 
TOKEN, LAST_TOKE 

ins 

LENGTH, (RO) 

ae 4(RO) 


1, RO 


RNS ESC. @LEX_STRING_DESC+4, = 


Page 70. 


(21) | 


6 
18-5 1984 01:50:44 AX-11 Bliss-32 V4.0-74 
1 305-138 9} 718 DEBUG. SRC JDBGNPNP .B32; 


i. 


; 19 7 i 1 GLOBAL ROUTINE CHECK PATHNAME : NOVALUE = 

; 19 § 1 !4¢ 

; 13 ; § : FUNCTIONAL DESCRIPTION: 

: 19 § 41! This routine examines a completed pathname descriptor and classifies its 
; 13 5 : } type by setting the value state to: 

; 4 5 be? : dbg$k_reg : register reference (item count is 0) 

; 19 5 i dbg$k_Line : Line number reference (not a data item) 
; 424 031 ! ; dbg$k_label : numeric Label reference (not a data item) 
; Hb a} 038 ' ; dbg$k_pn : data or lexical item reference 

; 1968 055 1 | FORMAL PARAMETERS: 

3 1944 p26 7 ! 

Bt Ba i] 

; 1967 059 { IMPLICIT INPUTS: 

: 4 be) : The pathname descriptor constructed by parse_pathname. 

; 1951 O68 { IMPLICIT OUTPUTS: 

: 1988 065 ; NONE 

; 1955 Os i ROUTINE VALUE: 

6 ae tena 

; 1959 ori ! COMPLETION CODES: 

Bg 8 Fle 

; 1968 075 i SIDE EFFECTS: 

: soe? O77 : : The value state is set according to the type of pathname descriptor examined. 
; 1969 079 1 ie 

3; 1968 080 BEGIN 

: 1990 $83 IND 

3 1971 O88 LINE_STG = UPLIT BYTE (*ZLINE") 

3 1978 084 LABEC_STG = UPLIT BYTE (*XLABEL'S; 

We BEE lot 

: 1975 OBS NEW_STRING REF VECTOR £.BYTE}. 

: 1976 4 STRING REF VECTOR C,BYTEJ; ! String vector 

: 1998 090 

F 1979 033 string = .name_vect [.pathname_desc (pth$b_totcnt) - 1); 

: 1981 

3 19 ' If Language is C, then copy and upcase the string. 

; 198 095 i =e - ° 


Pa 71. 
9° (22) 


H 6 
16-Sep-1984 01:50:44 AX-11 Bliss-32 v4. Pp 7 
19-808- 1382 93:3 :18 DEBUG. SRC SSecapNr ose B300 09° ob5 


3333 


{fg 0atab..Lenguage EQL dbgSk_c 


BEGIN 
string = dbg$get_tem ne m((.stringlO fapetds 
ehSaovel stringl ode te -strin m864°0 “new “Str ng); 


? new stri ney 
fF anew. stringl.i] GEQ AND -new_stringl.i] LEQ ‘z 


new_stringl.i] = .new_stringl.i] = ('a' = ‘A"); 
prc ies = .ne@w string; 


MEW 


: Set the value state by examining the completed pathname descriptor 

SELECTONE true 
OF 
SET 
C.pathname_desc (pth$b_totcnt] EQL 0] : value_state = dbg$k_reg; 
Cch$find_sub (.string [0], string C1], 5, Line_stg) NEQA 0] : value_state = dbg$k_line; 
Cch$find_sub (.string [0], string [1], 6, label_stg) NEQA 0] : value_state = dbg$k_label; 
COTHERWISE] : value_state = dbg$k_pn; 


te a 4 te 8 4 


EET SET EES SS SEES 


Om a a — a a — os > as ob a > a as a a 9 ts tt 


RoNMroKRoNoNoNIn 2 oe 


NOVEWN —OOONOUE WOOF 


010 
011 TES; 
Org 
01 RETURN; 
014 
015 END; ! End of check_pathname 
-PSECT DBGSPLIT,NOWRT, SHR, PIC.O 
4 49 4¢ 35 0019 P.AAJ: ASCII \ZLINE\ : 
4C ¢3 42 41 5 OOO1E P.AAK: ASCII \ZLABEL\ ; 
LINE_STG= P.AAJ 
LABEC_STG= P.AAK 
.PSECT DBGSCODE,NOWRT, SHR, PICO 
O1FC 000 .ENTRY CHECK_PATHNAME, Save R2.R3.R4,R5,R6,R7.R8 ; 2039 
00000000" EF 9€ 00 MOVAB VALUE-STATE, R& ; 
F4 BB OA MOVZBL a@PAT ATHRARE ésc, R : 2091. 
F8 B84 3 MOVAL ; : | 
$ FC A p 1 MOVL =4(R se ING ; 
07 000000006 9 1 1 CMPB G$GB. * LANGUAGE, a? 5 2096. 
C 12 00010 BNEQ : | 
$0 6 9A OOOTF MOVZBL (STRING) , RO : 2099 
4 £6 Dive. # F 
01 AO OF PUSHAB 1(RO) ; 
000000006 00 01 FB CALLS #1, DBGSGET_TEMPMEM ; 


01 AG 


01 8 A6 


3; Routine Size: 


3; 2016 


50 00000000° € 


157 bytes, 


2128 1 


5 
50 00000000" EF 


Routine Base: 


ss Site 

BS 0g Sn 

05 076 5$ 

4 00 

2 0078 
OO7E 

66 OO7F 6$ 

0 0082 

0 008C¢ 

6 4 

6 0091 7$ 

SS ts fia 
0099 


68 D4 OOO9A 8$: 


DBGSCODE + 10F7 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGNPNP .B32; 
v NEW_STRING 
ar Se athey® RO 
INCL P 
vC3 (STRING), (NEW STRING) 
MOV ZBL tne. STRING), R1 
CLRL 
BRB 
CMPB (D)Cneu. STRING), #97 
BLSSU 
cre (1)CNEW STRING], #122 
sUsB¢ #32, (1) CNEW_STRING) 
AOBLEQ Ri, 1 
MOVL §NEW_STRING, STRING 
TST Remo: 
BNEQ 
ROVL » VALUE_STATE 
MOVZBL TRING), RO 
MATCHC #5, LINE.STG, RO, 1(STRING) 
BEQL 
MOVL #5, R 
SUBL2 #5. R 
BEQL 
MOVL #2, VALUE_STATE 
MOVZBL (STRING), RO 
MATCHC #6, LABEL_STG, RO, 1(STRING) 
BEQL 46s 7$ 
MOVL #6, R3 
SUBL2 #6, R3 
BEQL He 
MOVL #3, VALUE_STATE 
CLRL =‘ VALUE_STATE 
RET 


Be Se Se Ge Ge Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Ge Se Fe Se Se Se Ge Se Ge Fe Se Se Se Se Be Se 


6 
Hb-Sen-1984 01:50:44  YAK-I1 Bigs 52 4.074 Page 24 


GLOBAL ROUTINE DBGSNPATHDESC_TO_CS (PATHNAME_DESC, COUNTED_STRING) : NOVALUE = 
tee 

' FUNCTIONAL DESCRIPTION: 

This routine accepts @ pathname Gover eter ye translates the contents ot 
the Googe rotor nto a printable form. That is, the names and optional 


invocation number contained within the pathname descriptor are formatted 
into one long counted string. 


This routine will produce the translation for any pathname descriptor which 
describes a legal scope including ‘'\' and numeric scopes. 


Pathnames in which the first two names are the same are modified to 
ates the ae only once (situations where routine and module names 
are the same). 


FORMAL PARAMETERS: 


BALAN IIR NITITININ 
oO MFwn— NOUS 


OOCOCCCoocooooooo 


PN_DESC -A Lenguere containing the address of a pathnaem 
descriptor 
040 COUNTED_STRING - The address of a longword to contain the address 
041 of a counted string representing the translation 
ek of the contents of the pathname descriptor 
Bee IMPLICIT INPUTS: 
oc$ NONE 
pee IMPLICIT OUTPUTS: 
Bay The translated pathname string 
O28 ROUTINE VALUE: 
bee NOVALUE 
936 COMPLETION CODES: 
$8 NONE 
088 


SIDE EFFECTS: 
This routine will produce a SIGNAL for certain circumstances. 


Oe ed ee ee et 


BEGIN 


SESSSSEEE 


PATHNAME_DESC : REF pth$pathname; 


3s 


So Se Se Se Se Se Se Se Se Se Ge Se Fe Se Se Ge Ge Ge Ge Ge Fe Ge Se Ge Se Ge Se Ge Ge Gs Se oe Ss Se FF Ge Se Se Se Se Se Se Ge SF Ge Se Se Ss Se Ge Ge SH Se G4 SH Os oe 
me me ee kk kk a tk tk a td dt a a ot a 2 = 8 2 2 2 2 


NNN NNNNNIOAAAAAAAOOUUIMUNNN ER RRR RRR RRR 
SRM VMS ISSIR ON TS SSS SOR SSeS S SESE SSSA SSSSSSEEENSSS 


PRIPIPIPIMPIADNDNORS tt tt at at a a at tt at at at a ot 


7 SAVE _STRING, ! Pointer to original string 
Ors PATH_STRING : REF VECTOR C,BYTE), ' Result buffer 
07 NAME _VECT REF VECTOR, ' Vector of pointers to name strings 
074 NAME REF VECTOR C,BYTE], ! Name counted string 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


95 
: 
: 
if 
‘ 
15 
3 
9 
: 
5 
; 


4 
be 
& 
& 
& 
3 
4 
& 
4 


SESESE 


09 
09 


ee eee a ee 


Wh 


wn 


kt et et at a a a = = = ss 2s Ss HY YS SY SY YS YS SY 


ke 
HEs$e94e QI:49:44 YMG Sh sgadzpus- 832 


INDEX !' Index into oS _vect 
SOURCE _D SC : dbg$stg_desc, i Source descript 
ARGET_DESC ; gbgsstg. desc, i Target descr iptor 
R vty LENGTH: i Length of of string after FAOing 
XT_CRAR, i Pointer into result string 
SIZE; i Number of bytes needed for result buffer 


save_string = 0; 
1 Line up the name vector 
name_vect = pathname_desc ([pth$a_pathvector]; 
! Look for an invocation number. If there is one, go ahead and add the number 
: to the correct name string. We save the original name string so that we may restore it. 
if, ,pathnane.desc Cpth$b_locinvoc] NEQ 0 
BEGIN 
: Recover the name string 
lens = .name_vect C.pathname_desc [pth$b_locinvoc] - 1]; 
save_string = .name; 
Allocate enough storage to concatenate the number to the string 
path_string = dbg$get_tempmem((.name [0] + 24) / ZUPVAL); 


: Copy the name string 
iF _.mame CO] NEQ 0 
— 


string (1)); 
source_desc (dsc$a ointer] = oper BYTE (* ‘uC'); 


— we = fascfacp (,.name [0], name (1), path 
pource “desc Cdsc$w_ Rength) 


next_char = path_string Ci} 
source_desc [dscSa_pointer) =_UPLIT BYTE ("!UL"); 
pource.. “desc Cdsc$w_ ength) = = 3; 


; Append the invocation number 


Snead: desc (dsc$a_ pointer: = ,next_char; 
target_desc (Cdsc$w_ Cength) = 23; 


sys$fao (source_desc, result_length, target_desc, .pathname_desc (pth$l_invocnum)); 


: 


o~ 


VAP oY) 


DANAUS BS 
DONO VE WN —OO®W 


FERS 


o 
uw 


SNNNOAO 
SSSELF 


wr 


4 tr pet RP 
MEWN—O Wms 


WAIN NIA AIA NAITO IS BS BS BAIA AI AI AI AI AI IOP WI AIAOPUNIRIIUIIIIINI AAA AAA 


em kk a ah tn ts i ss a a 4 Ln —) — 4 as 4 a 4 4 Ls 


SESRRAVLS SSVSARAVILSSSLS ALANIS SSVSARFUNASSSLE GREW LE SRS ARS 


SSLESEANLS 
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18-5 -1 2:50:44 AX-11 Bliss-32 V4.0-74 
12-866-198e $2:19:18  EoeeuG. SRCIDBGNPNP 830; 
; Update the copie's Length 
path_string [0] = .name (0) + .result_length; 


: Point to the copy 
name_vect C.pathname_desc Cpth$b_locinvoc] - 1] = .path_string; 


Figure out how much space will be needed to hold the entire string 


size = 0; 
a index FROM 0 TO .pathname_desc Cpth$b_totcnt] - 1 


BEGIN 
name = .name_vect C. togend: 
pee = .size + .name (0) + 1; 


! One for ‘\' 


Allocate enough storage to hold the string plus one byte for the length 
path_string = dbg$get_tempmem((.size / %UPVAL) + 2); 

! Now we're ready to aqpene all the name strings into one string. First 

: check for the special case of the global scope, '\'. 


name = .name_vect [0]; 
i rene COJ“EQL 0 AND .pathname_desc Cpth$b_locinvoc] EQL 0 


BEGIN 
: Global scope or global reference 
ch$move (1, UPLIT BYTE ("\"), path_string (1)); 


result_length = 1; 
iF pathnane_desc Cpth$b_totcnt] GTR 1 


ect (1); 
ch$move (.nake £02, name (1), path_string (2)); 
fosutt. tongth = .result_length + .name (0); 


sc 
BEGIN 
LOCAL 
NAME_ : REF VECTOR C.BYTE), 
NAME — : REF VECTOR C.BYTE):; 


Loop, adding all the name strings. 
result_length = 0; 


m 6 
1eoSep-i98e $2:i7:18 — EocauG. SRcSbaGNPNP: B32; 


i 


IF index LSS .pathname_desc Cpth$b_totcnt) - 1 


196 next_char = path string (1); 
1 
138 ! We do not want to ouput the same name twice. Check to see if the 
1 ! first name and the second name are the same. If they are, skip over 
194 ' the first name. 
132 i = 0; 
199 If pathname _desc Cpeth$b_totcnt] GEQ 2 
139 \ BEGIN 
o9 11 name_1 = .name_vect 3 
0 \§ name § = ,mname_vect $ 
o 1 IF ch$eql (.name_1 (OJ, name_1 [1], .mame_2 [0], name_2 [1)) 
3 13 THEN 
= 1; 
05 1 END; 
oF a index FROM .i TO .pathname_desc (Cpth$b_totcnt] - 1 
09 0 BEGIN 
1 1 name = .name_vect C.index); 
1 ¢ next char = ch$move (.mame [0], name [1], .next_char); 
; Z result_length = .result_length + .name (6); 
1 5 
: $ } If there is another name string, we add a ‘\' 
1 
1 
1 
2 


BEGIN 
a LSS .pathname_desc(pth$b_pathcnt] - 1 
next char = ch$move (1, UPLIT BYTE ("\"), .mext_char) 


next_char = ch$move (1, UPLIT BYTE (*."), .mext_char); 
result_length = .result_length + 1; 


Sow UP UNO Doe 
PIP IPIMDPIPIPIPDPININIPIPIPIPININD HE TTI BB BEB EEE PWN BB BB PIII 


PMOPUPOPOPINONIPONOPINONoPonoponofnorfrorny» 
AANA AAW 


WN — OOOO UN FW "O OONOUSwn—O 


Fill in the count byte. Check for overflow. 
path_string (0) = (IF .result_length GTR 255 THEN 255 ELSE .result_length); 


Restore the saved string if there is one. 
if ,Save_string NEQA 0 
name_vect C.pathname_desc [pth$b_locinvoc] - 1] = .save_string; 


: Return the countz¢ string 


AMET“ OOONOUNSWN oO 


Ronohononononononsnonononny 

SER EEE 

We: OO wn 
NCHS SPS SS SS SSS 


.counted_string = .jath_sceing; 


_——~_—_—_ wes 


eee eee) 


N 6 
16-Sep-1984 03:50:44 AX-11 Bliss- 4.0-74 
13-35-138e LRT DEBUG. SRCIDBGNPNP 30; 


ae Hi alll ! End of DBGSNPATHDESC_TO_CS 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4C 55 4 
4C 55 
é 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY DEGSNPATHDESC TO_CS, Save R2,R3,R4,R5,R6,- 
R7_.RB,RI,R1I0,R11 
5E 0 ¢2 90002 SUBL2 #32, SP 
E 04 0000 CLRL  SAVE_STRI 
SA 04 AC DO 00007 MOVL §PATHRAME DESC, R10 
57 08 AA 3 00008 MOVAB (R10), NAME_VECT 
02 AA 9 0000F TSTB (R10) 
76 13 00012 BEQL 4 
56 02 AA 9A 00014 MOVZBL 2(R10), R6 
68 FC A746 DO 00018 MOVL  -4(NAME_VECT)CR6], NAME 
6E 58 DO 0001D MOVL NAME, SAVE_STRING 
50 68 9A 00020 MOVZBL (NAME), RO 
30 18 CO 00023 ADDL2 #24, R 
7E 5 4 C¢7 00026 DIVL3 #4, RO, -(SP) 
000000006 00 1 FB 00 A CALLS #1. DBGSGET_TEMPMEM 
59 0 DO 00031 MOVL RO, PATH_STRING 
68 93 00 TSTB = (NAME) 
1B 13 000 EQL 
50 : 9A 00038 MOV ZBL (NAME) « RO 
01 «Ad 01 AB 28 000 vC RO, (NAME), 1(PATH_STRING) 
04 AE 53 DO 00041 MOVL. 3, NEXT CHAR 
1C AE 00000000' EF 3 0045 MOVAB P.AAL, SOURCE. _VC+4 
18 AE 4 80 9040 OV #4, SOURCE _DESC 
04 AE 91 A9 4: 23 1$: MOVAB 1(PATH_STRING), NEXT_CHAR 
C AE 00000000° ai MOVAB P OURCE BESC+4 
18 AE 3 8B 60 MOVW #3, SOURCE_DESC 
10 AE 04 AE DO 00064 2$: MOVL NEXT _CHAR TARGET_DESC+4 
OC AE 17 B 6 69 MOVW #23, ~TARGET_DESC 
04 AA BD $0 PUSHL 4 (R10) 
19 AE OF 9 PUSHAB TARGET_DESC 
10 AE 9F 0007 PUSHAB RESULT“LENGTH 
24 AE OOF ks PUSHAB SOURCE DES 
000000006 9F 04 F CALLS #4, @&SYSSFAO 
9 8 08 Ag 8 9 ADDBS RESULT_LENGTH, (NAME), (PATH STRING) 
FC A746 3 DO MOVL PATH_STRING, -4(NAME_VECT)CRE 
0 D4 00 A 3S CLRL 
58 6A 9A 0008C MOVZBL (R10), R11 
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v04-000 13n8eb-18be 95:29:t8 | YONG Bh SBacmene: Ssoe9 9° 23) 
51 1 008F MNEGL #1, INDEX 3 2260 
ot f O09 BRB 5$ : 
5 674 po 94 4$: MOVL § (NAME_VECT)CINDEX], NAME : 
& 68 9A 00098 MOVZBL (NAMES, R2 + 2261 
; 01 A240 H 0098 MOVAB. 1(R2)(§1ZE), size : | 
FO 1 5B Fe OOOAO 5$ AOBLSS R11, INDEX, 4 : 2257 
50 04 £6 O0A4 DIVL2 #4, R : 2267) 
02 AO 9F 000A7 PUSHAB 2(RO) : | 
000000006 00 oI FB OOOAA CALLS #1, DBG$GET_TEMPMEM ; 
59 : D0 00081 MOVL RO, PATH STRING : 
58 é B0 00B4 MOVL § (NAME_VECT), NAME : 2273 
68 09087 TSTB (NAMEY : 2274 
C Ne 89 BNEQ = 7$ : 
02 AA 95 00088 TSTB gR10) : 
aT. 42 O00BE BNEQ & ; 
01 A9 00000000" EF 90 000C MOVB = P.AAN, 1(PATH_STRING) + 2280 
08 AE 01 BO 000¢8 MOVW #1, RESULT_LENGTH + 2281 
01 6A 91 000CC CMPB ss (R10), #1 + 2282 
14 1B OOOCF BLEQU 6$ : 
58 04 A? DO 00001 OVL  4(NAME_VECT), NAME + 2285 
50 68 9A 00005 MOVZBL (NAME); RO + 2286 
AQ 01 A8& 50 28 00008 RO, 1(NAME), 2(PATH_STRING) : 
50 68 9A O00DE MOVZBL (NAME), RO : 2287 
08 AE 50 AO 000E1 ADDW2 RO RESULT_LENGTH : 
75 11 OOOES 68: BRB 13$ + 2274 
08 AE B4 O00E7 7$: CLRW RESULT_LENGTH : 3299 
04 AE 01 AJ 9E OOOEA MOVAB 1(PATH_° RING), NEXT_CHAR ; 2300 
56 D4 OOOEF imo 4 + 2307 
02 6A 91 OO0F1 CMPB ss (R10), -#2 : 2308 
1A 1F OO0F4 BLSSU-8&$ : 
51 67 00 000F6 MOVL § (NAME_VECT), NAME_1 : 2311 
50 04 A7 00 000F9 MOVL 4 (NAME_VECTS, NAME_2 : 2312 
53 61 9A OOOFD MOVZBL (NAME_T), R3 ; 2313) 
52 60 9A 00100 MOVZBL (NAME~2). R2 : 
00 01 «AI 53 2D 00103 CMPCS R3, 1TNAME_1), #0, R2, 1(NAME_2) 3 
01 Ad 00109 : 
03 12 00108 BNEQ 8$ : 
56 01 DO 00100 MOVL #1, I > 2315 
56 D7 00110 8$: DECL ‘INDEX : 2318 
44 11 00112 BRB 12$ : 
58 6746 DO 00114 9S: MOVL § (NAME_VECT)CINDEX], NAME > 2321 
50 68 9A 00118 MOVZBL ( ! + 2322 
BE 01 «AB 50 28 00118 OVC3 RO, 1(NAME), @NEXT_CHAR : 
04 ar 53 b0 it 1 OVL R35, NEXT_CHAR 3 
5 68 9A 00125 MOV ZBL (NAME ) > 2323) 
08 AE 0 Ad 00128 ADDW2 RO, RESULT_LENGTH : | 
50 FF AB 9E 0012C MOVAB -1(R11), RO : 2328. 
50 36 D1 001 CMPL INDEX, RO : 
23 18 001 BGEQ 2$ : | 
50 01 AA 9A 001 MOVZBL 1(R10), RO : 2331. 
20 07 00139 DECL RO : | 
50 6 D1 00138 CMPL —sINDEX, RO ; 
oA 18 4 BGEQ 108 : 
04 BE 00000000' Fe 90 14 nove P AAO, @NEXT_CHAR ; 2333) 
04 BE 00000000' EF 90 O14, 10$: MOVB  P.AAP, @NEXT_CHAR : 2335. 
04 AE D6 00152 118: INCL NEXT_CHAR : 


7 
DBGNPNP 1b-se -1984 01:50:44 AX-11 Bliss-32 V4.0-742 Page 80 
v04=000 12-88-1382 9} 79:48 DEBUG. SRCIDBGNPNP.B32:1 (23) 
08 AE 86 00155 INCW _- RESULT_LENGTH 5 2336) 
B8 56 58 BS 0158 128 AOBLSS Rite INDEX, 9$ : 2318 
OOFF BF 08 AE B81 001 ¢ 13$ CMPW  =- RESULT_LENGTH, #255 > 2344 | 
6 18 O16 BLEQU 143 : 
50 FF BF 9A 00164 MOVZBL #235. RO : 
4 11 00168 BRB 15$ : 
50 08 A 3 016A 14$:  MOVZWL RESULT_LENGTH, RO : | 
69 5 0016¢ 15$: MOVB RO, (PATH STRING) : | 
6 D3 00171 TSTL § SAVE_STRING + 2349 
1 00173 BEQL 16$ : 
50 02 AA 9A 0017 MOVZBL 2(R10), RO ; 2351 

FC A740 of 00 00179 MOVL  SAVE_STRING, -4(NAME_VECT)CROJ : 
08 BC DO OO17E 16$ MOVL § PATHTSTRING, @COUNTED_STRING + 2356 
04 00182 RET t 2360 

; Routine Size: 387 bytes, Routine Base: DBGSCODE + 1194 


; 2250 2361 1 


> 7 
16-Sep-1984 01:50:44  VAXe1 
o- 30071387 93 


1 Bliss-32 V4.0-74 Page 81 
14-Sep-19 2:17:18 DEBUG.S cj . 


RC JDBGNPNP .B32; (24) | 


a 


: ¢ 6 ! ROUTINE SCOPE_SCANNER (INPUT_DESC, LEX_DESC, TOKEN) : NOVALUE = 

: 2254 64 1 144 

H 5 o : FUNCTIONAL DESCRIPTION: 

: “4 ¢9 1/ Lexical scanner for the parsing of scopes. This routine supplies 

; 2258 68 1! tokens to the pathname parser when a scope is to be parsed. It plays 

: 2259 69 1! the part of a language specific lexical scanner and its address is 

: rs £9 : supplied to the pathname parser by dbg$nparse_scope_list. 

; ie: : ; The tokens returned by this routine are Limited to: 
: 5 64 7% 1! dbg$k_tok_null, oy tok_inval, dbgsk_tok line, dbg$k_tok label, 

3 3266 ie : } dbg$k_tok_int, dbg$k_fok_Td, dbg$k_tok_dot, and dbg$k_fok_Bs. 

3 2267 3 77 13 Note that unlike the acutual language specific scanners, this routine does 

; $08 4 : } not return a token for Zregister since these are invalid in a scope. 

; 2270 $340 1! The input Line is NOT updated after a token is recognized. The caller 

3: 2271 + ie of this routine is responsible for updating the input Line by 

3 $sig sase : using the information in the lexical string descriptor. 

; $$ie te ; ; The input Line is assumed to be terminated with a <CR>. 
; 2576 3386 | | FORMAL PARAMETERS: 

; $576 2388 1! INPUT _DESC - A longword concerning the address of a standard — 

3 it44 $355 : } ascii string descriptor representing the input Line 

3 2281 2391 1! LEX_DESC - A longword containing the address of a standard 
: ssee $a08 e ascii string descriptor. The length and a_pointer | 
: 228 eave 7 fields of this descriptor are filled in to reflect 
: 2284 2394 1! the portion of the input which represents the token 
3 2285 co. se recognized. 
: 2286 2396 1! ; 
3; 2287 2397 1! TOKEN - The address of a longword to contain the value | 
; 2288 2398 1! of the token recognized | 
3; 2289 399 1! 

: 2290 400 1 ! IMPLICIT INPUTS: 
3; 2291 401 1! 
: $36 se08 1! NONE 
3; 229 2405 1! | 
: 3296 $488 1 { IMPLICIT OUTPUTS: 

; 236 Stee ' Token value is returned and the lexical string descriptor is updated. | 
; 2298 408 1 | ROUTINE VALUE: 

: $38 409 1! 

3; 2300 410 1! NOVALUE 

3; 2301 411 1! 

3; 230 ce 1 ! COMPLETION CODES: 

3 230 413 1! 

: 2504 414 1! NONE 

3 2305 415 1! 

3 $9 gc 1 ! SIDE EFFECTS: 

: 230 417 1! 

; 2508 418 1! NONE 
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1h-se 1984 01:50:44 AX-11 Bliss-32 V4.0-74 
14-Se 1986 933} 18 DEBUG.S CIDBGNPNP.B32: 
BEGIN 
MAP 
INPUT_DESC : REF dbg$stg_desc, 
LEX_DESC : REF dbg$stg_desc; 
LOCAL 
CHAR BYTE, ! Input character 
POINTER ! Pointer to input char 
TOKEN_START, ! Pointer to start of lexical string 
roxey END, ! Pointer to one char beyond lex string 
NEW_STRING REF VECTOR f .BYTE. ' String vector 
STRING REF VECTOR C,BYTEJ; ! String vector 


pointer = ch$ptr (.input_desc Cdsc$a_pointer]); 


Skip over leading white space 

char = ch$rchar (.pointer); 

WHILE .char EQL * * DO char = ch$a_rchar (pointer); 

Pointer now points to the first character of the token string 
token_start = .pointer; 


Case off of the character to begin acceptance of the token 
SELECTONE true 
OF 
SET 
C.cher Fo. dbg$k_car_return] : ! Null input Line, <CR> 
token_end = .token_start; 
-token = dbg$k_tok_null; 
END; 
C.char EQL ‘\') : 
BEGIN 
token_end = ch$plus (.token_start, 1); 
token = dbg$k_tok_bs; 
END; 
C.char EQL '.") : 
BEGIN 
token_end = ch$plus (.token_start, 1); 
gtones = dbg$k_tok_dot; 


C.char EQL '%') : ' "ZLINE* or ‘ZLABEL' 


Page 


8 
(245 


} 


ee 


=198¢ 12:17:18 — EDeeuG. SRCSDBGNPNE-B30+1 


- DEBUG. SRC JDBGNPNP.B32; 
47 BEGI 
rhe LOCAL 
tf8 STRING_DESC : dbg$stg_desc; 
480 
481 IF .dbg$gb_language EQL dbg$k_c 
Q ; THEN g3gb_languag Qok_ 
6 BEGIN 
re 5 Copy and upcase the string. 
cs? string = ch$plus (.pointer, 1): 
486 length = .input_desc (Cdsc$w_length] - 
489 (.pointer + 1 = .input_desc Légcdo pointer)); 
490 hoy Str ine = cbgSoet _tenpaen((. Lengths /4); 
491 ch$move(. angte estring, .new string); 
49 INCR i FROM 0 TO .Length - 1 00 
rh Fr phen str ing iJ GEQ ‘a’ AND .new_stringl.i] LEQ ‘z' 
495 new_stringl.i] = new.stringl. 1) - ("at = 'A'); 
496 string_desc (dsc$w_Length] = -Length; 
red str ing_dese dsc$a_pointer] = .new_string; 


: ALL other Languages. 


GIN 
string_desc qectepetnsers = ch$plus (.pointer, 1); 
string_desc Cdsc$w_length] = .input_desc (Cdsc$w_length] - 
ne (.pointer + 1 = .input_desc Cdsc$a_pointer]); 
SELECTONE true 
OF 
SET 


Cdbg$nmatch (string desc, UPLIT BYTE (ZASCIC ‘LINE'), 2)] : 
.token = dbg$k_tok_Line; 


Cdbg$nmatch (string desc , UPLIT BYTE (ZASCIC LABEL"), 2)] : 
token = dbg$k_tok_label; 


Cdbg$nmatch (string desc , UPLIT BYTE (ZASCIC ‘NAME'), 1)] : 
etoken = dbg$k_fok_qname; 


COTHERWISE) : 
etoken = dbg$k_tok_inval; 


TES; 
IF .dbg$gb_language EQL dbg$k_c 
THEN g9gb_Languag gor. 


token_end = .pointer + 
(.string_desc(dsc$a_pointer] - .new_string) 
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GNPNP 18-se 1984 01:50:44 AX-11 Bliss-32 V4.0-74 
yOe~000 1 ~3ep-19 4 PEt ber} DEBUG. SRC JDBGNPNP .B32; 
; 24 : 3 token_end = .string_desc Cdsc$a_pointer]; 
: $25e 3 ees 
; 496 C.char Ged 'O" AND .char LEQ '9°) : ' Integer 
; : : 5 WHILE .char GEQ ‘O° AND .char LEQ ‘9° DO char = ch$a_rchar (pointer); 
: 246 40 
3; 2431 41 token_end = gperesers 
3 24 § og .token = dbg$k_tok_int; 
: $e te oe 
; 2435 45 C(.char GEQ 'A’ AND .char LEQ 'Z') OR 
3; 26 rf (.char GEQ ‘a’ AND .char LEQ ‘2z')]) : ! ID 
> 24 54 BEGIN 
: ; ; 278 WHILE .char NEQ ',° 
> 2640 250 «char NEQ "\" 
3 24461 551 
a: 4 me 
> 2664 554 .char NEQ dbg$k_car_return 
Stee ae i 00 BEGIN 
: 44 235 & pointer = ch$plus (.pointer, 1); 
3 2448 558 4 char = ch$rchar (.pointer); 
: $08 326 _ 
3 2451 561 token_end = .pointer; 
3 $2 266 gtgken = dbg$k_tok_id; 
> 2654 564 : 
3 tS 83 COTHERWI SE : 
3 245 369 .token = dbg$k_tok_inval; 
3; 2458 568 END; 
3 2459 28? 
3; 2460 570 TES; 
Be Be 
; vo F 378 Now fill in the lexical string descriptor 
> 2465 575 lex_string_desc fdsc$a_ ointer) = .token_start; 
: rt¢ 1 278 lex_string_desc (Cdsc$w_length] = .token_end - .token_start; 
3 2468 578 RETURN; 
3 2469 579 
3; 24670 580 END; ! End of SCOPE_SCANNER 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


P.AAQ: .ASCII <4>\LINE\ 
5 P.AAR: . I <5>\LABEL\ 
P.AAS: ASCII <4>\NAME\ 


AX-1 


| 
4 1 Bliss-32 V4.0-74 Pa 85 
8 DEBUG.S cj 3 a 


4H? 
yO 000 1e=ge=1382 93:79: RCIDBGNPNP.B32 (24), 


.PSECT DBGSCODE,NOWRT, SHR, PICO 
OFFC 00000 SCOPE_SCANNER: 
WOR 


4 
1 


; Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2362) 
E oc ¢ 9002 SUBL , SP ; 
06 AC OD 9 MOV NPUT_DESC, RO + 2437) 
§ 06 =A 0 MOV (RO)> POINTER : 
$6 09 1$: MOVE (POINTER), CHAR + 2442. 
a3 1 BNEQ : | 
6 1 INCL POINTER : 
F4 1 BRB : 
58 g po 19 2$: MOVL § POINTER, TOKEN_START + 2448 | 
0D 1 0001C CMPB HAR, #13 + 2457 
8 is OO1F BNEQ : 
SA B D 99 1 MOVL § TOKEN_START, TOKEN_END + 2459 
0C BC 04 00024 CLRL  a@TOKER : 246 
1D 11 00027 BRB + 245 
SCF 59 91 00029 3$ CMPB ss CHAR, -#92 + 246 
0A 12 00020 BNEQ : 
SA 01 AB 9 O02F MOV 1(R11), TOKEN_END + 2465 
oc BC 04 00 000 3 MOVL #4, @TOKEN : 24 
D 11 000 BRB + 245 
2E 9 91 00039 4$ CMPB ss CHAR, #46 + 2469 
0B 12 0003C BNEQ : 
SA 01 AB 9 00 MOVAB 1(R11), TOKEN_END + 2671 
0c BC p 004 MOVL #7, @TOKEN ; 47g 
017B 31 046 5$: BRW : 245 
25 59 91 00049 6S: CMPB CHAR, #37 + 2475 
03 13 0004¢ BEQL $ : 
0007 33 O04E BRW : 
51 01 Ad 9E 00051 7S MOVAB 1(R6), R1 : 2487 
07 000000006 09 91 00055 CMPB DBGSGB_LANGUAGE a7 + 2481 
48 12 0005C BNEQ 10$ : 
53 1 00 0005€ VL. R1, STRIN + 2487 
52 04 Ad 1 ¢ 061 SUBL3 R1. 4(RO), R2 + 2489 
5 6 ¢ 0066 v2we (RO), LENGTH : 
7 ¢ 0 ADDL2 2, LENGT ; 
0 03 A g 006¢ vag R7), RO + 2490 | 
7E 50 04 € DIVL 4, RO, -(SP ; 
000000006 1 FB 00074 CALLS #1, DBGSGET_TEMPMEM ; | 
9 078 MOVL. RO, NEW_STRING ; | 
68 7 MOVC3 LENGTH, (STRING), (NEW_STRING) + 2491 | 
0 1 fF 0 MNEGL #1, I > 2492 
\§ BRB oS 3 
61 8F 6048 91 8$: CMPB  s- (1) CNEW_STRING), #97 > 2493 | 
08 iF ¢ BLSSU : 
7A —soBF 6048 7 chips (1) CNEW_STRING), #122 ; 
6048 9 & 9 SBE? #32, (1) CNEW STRING) > 2495 | 
EA 50 : 99 9$: AOBLSS LENGTH, I, 8 > 2493 | 
6E 7 8 MOVW LENGTH, STRING DESC : 496 | 
04 AE 8 p A MOVL NEW_STRING, STRING DESC +4 > 2497 | 
D AG BRB 11$ > 2481 | 
04 AE 1 DO 000A6 10$:  MOVL 1, STRING_DESC+4 3 2504 | 


7 
tose -1984 :50:446 AX-11 Bliss-32 V4.0-74 
1 =300n 138% 93:39:48 DEBUG. SRCIDBGNPNP.B32; 
51 04 A0 51 S AA SUBL3 1, 4(RO), R1 
ra 3 5 60 A A ADDWS (RO), R1, STRING_DESC 
D 00083 118 PUSHL #2 
00000099" EF 9F 0008 PUSHAB P.AAQ 
AE 9F 00088 PUSHAB STRING DESC 
000000006 90 Q é B CALLS #3, DBGSNMATCH 
FD 900C BNER 2b 
oc aC 00 cA MOVL ‘ { @TOKEN 
5 0 8 12$: PUSHL r 
00000000" EF 9F 000D PUSHAB P.AAR 
AE 9F 000D PUSHAB STRING DESC 
000000006 00 Fe 0D CALLS #3, DBGSNMATCH 
1 D OE CMPL =sRO, #1 
é if E BNEQ «138 
a + 9 dooce oa a. 
1 DD OOOED 138:  PUSHL #1 
00000000" EF 9F OODEF PUSHAB P.AAS 
08 AE OF OOF 5 PUS STRING_DESC 
000000006 00 Q FB OOOF CALLS #3, DBGSNMATCH 
“ et sete eh A 
oc «BC 09 06 0104 MOVL "9, @TOKEN 
0c BC if po thy 14$:  MOVL #1, @TOKEN 
07 000000006 00 91 THE 15$: CPB DBGSGB_LANGUAGE a? 
50 04 A 98 ig 8011 SUBL NEW STRING, STRING _DESC+4, RO 
A 5 36 C1 Oii¢ ADDL POINTER, RO, TOKEN-END 
SA 04 aE 00 91 2 16$: MOVL STRING_DESC#4, TOKEN_END 
33 ps 0128 17$ CLRL sR 
30 59 91 OO12A CMPB ss CHAR, #48 
0¢ 1F 00120 BLSSU-18$ 
D6 0012F INCL = RI 
30 4 00131 18$ CLRL =. RO 
39 59 (91 4 3 CMPB ss CHAR, «#57 
08 1A 001 BGTRU 19$ 
D6 001 NCL RO 
5 1 D2 0013A 198:  MCOML RI, R2 
5 j CA 001 Bich R2, R 
01 DI 14 CMPL =SséRO, #1 
1A é 014 BNEQ 2 
30 59 91 00145 208:  CMPB HAR, #48 
¢ 1F 0014 BLSSU 
39 91 O014A CMPB CHAR, #57 
7 1A 00140 BGTRU 21$ 
6 06 14F INCL POINTER 
59 i: 9 } ROVE (POINTER), CHAR 
« B =R RB Be le rune 
$3 15D 338: BRB a6 
0 p4 OO15F 238:  CLRE 


Pe Se Se Se Se Se Se Se Ge Se Ge Ge Se Se Sse Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Se Se Se Ge Se Se Ge Se Se Se Se Be Se Be Se Se Se Se Be Be Se Se Be Se Se Se 
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GNPNP 16-Sep-1 50:44 AX-11 Bliss-32 V4.0-74 Pp 87 
Meet 000 1 met 93:39:48 DEBUG. SRC JDBGNPNP .B32; 29 54) 
=. o 91 001 CMPB SHAR, rT) : 
D6 001 Phere =o 
be 169 248: LAL R : 
SA oF 1 001 CMPB SHAR, #90 : 
1A O016F BGTRU $ : 
0g 1 INCL R : 
51 D2 00173 258: MC RO, R1 : 
2 CA 0017 BICL2 Ri. R2 : | 
1 ps 1 CLRL sR + 2546 
61 8F 9 91 00178 CMPB CHAR, #97 : 
; 1F 0017F BLSSU $s : | 
D6 00181 INCL R : 
9 ps 1 3 268: CLRL = RO : 
7A —soBF 1 001 CMPB SHAR, #122 : 
2 1A 00189 BGTRU 27S : 
06 1 INCL RO : 
53 D2 0018) 27$:  MCOML Ri, R3 : 
0 CA 9130 BICL2 R3. RO ; 
50 C8 0019 BISL2 R2. RO : 
01 D1 019% CMPL RO, #1 t 2545) 
é 1 91 BNEG 308 : | 
2c 9 91 00198 288:  CMPB CHAR, #44 : 2548. 
17 13 0195 BEQL 9$ ; | 
5c oS 59 4 1A CMPB SHAR, #92 : 2550 
11 13 OO1A4 BEQL 9$ ; | 
20 59 91 O1Ag CMPB SHAR, #32 : 2552 
o¢ 13 O14 BEQL 9$ : 
0D 9 91 O1AB CMPB SHAR, #13 : 2554. 
g7 13 Tae BEQL 9$ : | 
6 D6 0018 INCL POINTER : 2557) 
59 66 90 0018 MOVE (POINTER), CHAR : 2558. 
4 11 0018 BRB : 2548) 
SA . 09 0187 29$:  MOVL POINTER. TOKEN_END 3 2561 
oc BC 05 DO 001BA MOVL #5, aTOKEN ; 56¢ 
4 11 O1BE BRB 1 + 245 
0c Bc 1 00 O01C 308: MOVL #1, @TOKEN : 2567 
00000000° FF B D9 01C4 31$:  MOVL_ TOKEN_START, LEX_STRING_DESC+4 : 2575 
00000000" EF A 5B as O1c SUBUS TOKEN“START, TOKEN_END, LEX_STRING_DESC : 376 


; Routine Size: 468 bytes, Routine Base: DBGSCODE + 1317 


3 2471 338! 1 
3; 2472 582 1 


K 7 
eeSep-198e $2iiP:18 — EbgauG. SAcSbaGNPNE-B32; Pane 28) 


re & GLOBAL ROUTINE DBGSNPARSE_SCOPE_LIST (INPUT_DESC, SCOPE_LIST, MESSAGE_VECT) = 
47 5 ad 

47 : FUNCTIONAL DESCRIPTION: 

<7 


This royt tne perses the objects of a SET SCOPE command. The pathname 
arser is called within a loop to parse each scope item. A longword vector 
constructed which contains the number of scope items in the first ceil 
with the addresses of pathname descriptors in the subsequent cells. 


A Limit of 50 scope items per SET SCOPE command is observed. 


This routine supplies the address of SCOPE_SCANNER as the lexical 
analyzer for the pathname parser. 


9 FORMAL PARAMETERS: 
491 INPUT _DESC - A longword containing the address of a standard 
49, character string descriptor reflecting the input 
494 SCOPE_LIST - The address of a longword to contain the address 
med of the pathname descriptor vector 
Si MESSAGE _VECT - The address of a longword to contain the address 
498 of a message argument vector on error 
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IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
On success, the pathname descriptor vector is obtained. 


BF 
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oo 


On failure, a message argument vector is constructed and returned. 
ROUTINE VALUE: 

An unsigned integer longword completion code 
COMPLETION CODES: 
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STSSK_SUCCESS (1) - Success. Pathname descriptor vector formed. 
STSSK_SEVERE (4) - Failure. Error detected. Message argument vector 
constructed. 


SIDE EFFECTS: 


If more than 50 scopes are collected, this routine will issue a string 
truncation message. 


BEGIN 
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MAP 
INPUT _DESC : REF dbg$stg_desc; 
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LITERAL 
$s 


COPE VECT SIZE = 51, 
MAX_NOM_SCOPES = 30: 
LOCAL 
SCOPE _VECT : REF VECTOR, ! Pathname descriptor vector 
INDEX ! Index into the vector 
DUMMY , : Dummy parameter 
DUMMY2, : 
STATUS; : Return status from 


the pathname parser. 
: Allocate space for 50 pathname descriptor pointers, plus one for the count. 
scope_vect = dbg$get_tempmem(scope_vect_size); 


: Loop and collect the pathname descriptors 


index = 1; 
WHILE true 
Lv) 


BEGIN 


! For Language C, we do some fancy footwork to 
! make sure we preserve the original casing of 
poe Jeoan ET sere (since casing is significant 


1 
if .dbg$gb_language EQL dbg$k_c 
IF ;,0098ab_Languag gSk_ 


length 

ney pointer: REF VECTOR C,BYTEJ, ! Pointer to orig. command input 
pointer, ! Pointer into input string 
stg_desc: dbg$stg_desc, ! String descriptor 

temp_ptr; 


! Obtain a pointer into the current command buffer and check 
' that it is still within the cones of the start and end of 
: the command buffer that we saved away in DBGSNGET_CMD. 


pointer = .in ut_desc{dsc$a_pointer]; 
F (.pointer LSS .dbg g| _upcase command _ptr£0}) OR 
(.pointer GIR .dbg$gl_upcase_command_ptri1J) 


$DBG_ERROR( *DBGNPNP\DBGSNPARSE_SCOPE_LIST 10°); 


Obtain a pointer into the original (not up-cased) 
command buffer (TEMP_PTR). 

Copy from this buffer into a new buffer pointed to 
by NEW_POINTER. 

We unfortunately have to allocate memory 

and copy strings in order to stuff a 

trailing carriage return at the end. 
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length = .input descLdsc$w_ Len 
new_pointer = dbo get temps ( 
temp_ptr = (.pointer = .dbg$gl 
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thi; 
Pelength+3)/4); 
upcase_command_ptr(0J) + 


| 
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9 1 -dbg$gl_orig_command_ptr 
38 § CHSMOV (. Lengt steno. Ber snes pointer); 
9¢ new_pointerL.length-1] = dbg$k_car_return; 
38 5 H Fill in the string descriptor. 
38 stg_desc(dsc$b_class] = dsc$k_class_s; 
4 stg_descldsc$b_dtype] = dscS$k_dtype_t; 
600 tg_descldsc$w_length] = .length; 
601 1 stg_desc dsc$e_pointer} = .new_ pointer; 
ref ; stg_descldsc$l_pos] = 0; 
obe : } Pick up the pathname. 
606 1 Status = dbg$npathname_parser ( stg_desc, 
60 1 scope_scanner 
8 1 scope _vect index], 
1 ummyl, 
1 dummy2, 
true); 


Update the input descriptor. 


input_descldsc$w. Length) 2 . input descCdscSu_length) ~ 

elLength - .stg_desc(dsc$w_length)); 

input descldsc$a_pointer r. 3h" ut 
sc$w 


“descldsc$a_pointer) + 
elength = .Stg_desc 


ength]); 


ALL other Languages besides C ... 


ELSE 


status = dbg$npathname_parser (.input_desc, 
scope_scanner 
scope-vect L. index), 
dummy!, 
dumm 2 e 
true); 
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IF NOT .status 
THEN 


BEGIN 
bee ornate (.input_desc, UPLIT BYTE (1, dbg$k_car_return), 1) 


BEGIN 
emessage_vect = dbg$nmake_arg_vect (dbg$_needmore); 
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74 RETURN sts$k_severe; 
? oe? END 
; Fay LSE 
236 BEGIN 
4 75 -message_vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
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; 2645 7 5 RETURN stsS$k_severe; 

3 one 7 3 4 END; fs 

3 264 7 $ 

3 264 7 END; 

: Ses 436 

3 e31 i Look for a comma that separates scopes 

3 5 i IF NOT dbgSnmatch (.input_desc, UPLIT BYTE (ZASCIC ',"), 1) 
; ; : 764 EXITLOOP; 

: 638 £98 ; Check for end of Line 

3 32) res if Gootnneteh (.input_desc, UPLIT BYTE (1, dbg$k_car_return), 1) 
; 2661 770 4 BEGIN 

3 066 771 4 emessage_vect = dbg$nmake_arg_vect (dbg$_needmore); 

3 266 772 4 RETURN sts$k_severe; 

ee an; 

; +4] 48 | There is atleast one more scope. Check for exceeding the Limit. 
3 2668 77 if .index GEQ max_num_scopes 

3 2669 77 THEN 

eae ome 

; of 4} ? : Issue a truncation message. 

ers i é dbg$nout_info (dbg$_stgtrunc); 

; ort re : : Set up a phony input descriptor and exit the loop 

; $679 788 4 ae desc Egsc$a-P ataters | = A shee BYTE (dbg$k_car_return); 
3; 2680 789 4 EXT TLOOE geet dsc$w_ Rength) 

3; 2681 790 4 

3 req) 791 3 

a. 3 

; rp re } Update the index 

; re La index = .index + 1; 

; os END; ! End of loop 

3 2691 800 

3 v4 3 : The scopes have been collected. Set the count. 

; vey 3 scope_vect [0] = .index; 

; 26 05 

3 $39 's] ! Return the scope List and success 

3; 2698 8 : 

: $9 3 -scope_list = .scope_vect; 

: 2701 10 RETURN sts$k_success; 
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4 17:18 DEBUG. SRC JDBGNPNP.B32;1 (25) 
; 270 811 
3 3308 $81 ¢ END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


50 4E 24 47 42 44 SC 50 46 59 4E 47 43 44 20 QOO3E P.AAT: . ASCII \ DBGNPNP\<92>\DBGSNPARSE_SCOPE_LIST 10\ : 
54653 49 4C SF 45 «50 «(GF 643 «653:«(CSF O45 «53 «52 «(4100040 : 
30 37 20 b009¢ : 

0D 01 OO0S5F P.AAU: .BYTE 1, 13 : 

eC 1 90061 P.AAV: <ASCII <f>\,\ : 

D 01 00063 P.AAW: .BYTE 1, 13 : 

0D 00065 P.AAX: .BYTE 1 : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 -ENTRY DBGSNPARSE SCOPE_LIST, Save R2,R3,R4,R5,R6,-; 2583 
7,R8,R9,RTO,R11 


SE 18 ¢2 00002 SUBL2 42h, §P : 
33 DD 00005 PUSHL #51 + 2655 
000000006 00 01 FB 00007 CALLS #1, DBGSGET_TEMPMEM : 
5B 50 D0 0000E MOVL RO, SCOPE_VECT : 
59 01 DO 00011 MOVL #1, I + 2660 
57 04 AC 00 00014 MOVL INPUT DESC, R7 + 2684 
SA 6B49 DE 00018 1$: MOVAL  (SCOPE_VECT)CINDEX], R10 > 2717 
07 000000006 00 91 9001¢ CMPB  §DBG$GB-LANGUAGE, #7 : 2670 
03 13 0002 BEQL $ : 
0092 31 00025 BRW $ : 
52 04 A? DO 00028 28: MOVL  4(R7), POINTER + 2684 
000000006 00 32 D1 b00¢¢ CPL POINTER, DBG$GL_UPCASE_COMMAND_PTR + 2685 | 
000000006 00 52 D1 00035 CMPL § POINTER, DBG$GL_UPCASE_COMMAND_PTR+4 + 2686 
15 15 0003¢ BLEQ 4$ : 
00000000' EF 9F OOO3E 3S: PUSHAB P.AAT : 2688 
01 DD 00044 PUSHL ; 
00028362 8F DD 00046 PUSHL #164706 ; 
000000006 00 03 FB 0004¢ CALLS #3, LIBSSIGNAL ; 
56 67 3C 00053 4$: MOVZWL (R?), LENGTH ; 2698 | 
50 03 Ab 3 0056 MOVAB 3(R65, RO > 2699 
7E 50 04 C7? 0005A DIVL3 #4, RO, =(SP) : 
000000006 99 gi FB 0005 CALLS #1, DBGSGET TEMPMEM ; 
0 DO 0006 MOVL 0; NEW POINTER : 
52 000000006 00 C2 00068 SUBL2 DBGSGL_OPCASE COMMAND _PTR, R2 : 2700 
50 52 000000006 00 C1 O06 ADDL BGSGL-ORIG_COMMAND_PTR, R2, TEMP_PTR : 3701 
68 6 56 a 0077 MOVC3 LENGTH, (TEMP PTR),~ (NEW POINTER) : 10¢ 
FF A648 D 90 0007B MOVB 13 ~{(LENGTAD (NEW POINTER : 270 
OE AE 010E 8F B0 99 0 MOVW 276, STG_DESC+ > 2708 | 
OC AE 6 BO 000 MOVW LENGTH, STG_DESC > 2709 | 
10 AE DO 0008A MOVL NEW POINTER, STG_DESC+4 : 2710 | 
16 AE D4 OOBE CLRL  STG~DESC+ ; eri | 
01 BD PUSHL #1 : 2717 
08 AE 9F 00093 PUSHAB DUMMY 3 
10 AE 9F 00096 PUSHAB DUMMY ; | 
5A DD 00099 PUSHL R : 
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R10 
SCOPE_SCANNER 
R? 

ATUS, 7$ 
# 
P AAU 
#3, DBGSNMATCH 
RO, 8$ 


#1, DBGSNNEXT_WORD 
#1, DBGSNSYNTAX_ERROR 


#1 
P.AAV 


R 
#3, DBGSNMATCH 
RO, 12$ 


—— 
#3, DBGSNMATCH 


#164048 
#1, DBGSNMAKE_ARG_VECT 
RO. MESSAGE _VECT 


{NDEX. #50 
1$ 


#163915 
#1 DBGSNOUT _INFO 
P.AAX, 4(R7) 
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#6, DBGSNPATHNAME _PARSER 
RO, STATUS 
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Routine Base: DBGSCODE + 1468 


361 bytes, 


3; Routine Size: 


3 
9 
{ 


opens rEoseoctgge 01:40: 


: 5708 ae Oy ‘End of module 
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-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


DBGSOWN 68 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Sg hoot t 
DBGSPLIT 102 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(Q) 
DBGSCODE 5716 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 

4 Library Statistics 

; esereese Symbols -<------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 9 0 1000 00:01.9 

; 7$255$DUA28: (DEBUG. OBJ STRUCDEF 432: 1 3 0 0 7 00:00.1 

: 7$255$DUA g: DEBUG. OBJ JDBGLIB.L3 154 32 2 97 00:02.1 

$ “$255$DUA DEBUG. SSID TRECRDS. (32; 1 , 0 31 00:00.3 

$ _$255$DUA28: (DEBUG. OBJ JDBGMSG.L32;1 386 4 1 22 00:00.3 

; COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:DBGNPNP/OBJ=0BJ$:DBGNPNP MSRC$:DBGNPNP/UPDATE=(ENH$: DBGNPNP) 

3; Size: 5716 code + 170 data bytes 

: Run Time 1:38.3 

3 Elapsed. Timer 4:09.9 

3; Lines/CPU Min 171 

3 Lexemes/CPU-Min: 2124 

3 Used: 380 pages 

3; Compilation Complete 
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